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ABSTRACT 

In this manual, we describe the software package ISE (acronym for Integrated 
Search Environment), a tool that implements hierarchical searches with meta-control. 
ISE actually is a collection of problem-independent routines to support search processes. 
Mainly, these routines are core routines for solving a search problem and they handle the 
control of searches and maintain the statistics related to searches. By separating the 
problem-dependent and problem-independent parts in ISE, new search methods can be 
implemented by calling existing methods and they can be developed easily by coding the 
meta-control. Further, new applications can be developed by only coding the problem- 
dependent parts. Potential users of ISE would be designers of new application solvers 
and new search algorithms, and users of experimenting them. ISE is designed to be 
user-friendly and information rich. In this manual, the organization of ISE is described 
and some sample runs are also shown. 


Research partially supported by National Aeronautics and Space Administration under contract 
NCC 2481 and by National Science Foundation under grant MIP 88-10584. 
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1. INTRODUCTION 

This manual describes the usage of our tool, ISE {Integrated Search Environment), 
that facilitates the coding of solving search problems. ISE is the implementation of the 
hierarchical search processes proposed by Wah [10]. ISE actually is a collection of 
problem-independent routines to support search solving. Mainly, these routines are core 
routines of solving a search problem, since they handle the control of searches and main- 
tain the statistics related to searches. Potential users of ISE would be designers of new 
application solvers, designers of new search algorithm, and persons that use search algo- 
rithms and application solvers. 

New application solvers only need to implement the problem-dependent part and 
need to interface some parameters related to problem-related characteristics, like the data 
type of cost values and the problem-dependent part of search nodes, such that the core 
routines can do things right. Once a new application solver is implemented in ISE, then 
this application problem can be solved by any of search strategies and search algorithms 
implemented in ISE in the past or in the future. 

New search algorithm designers also can implement their new search algorithms by 
manipulating builtin search primitives provided by ISE. A search primitive is the most 
basic search method such as best-first search and depth-first search. 

Application users will find the friendliness of ISE and can reconfigurate the search 
processes via the command line, like search strategy, search algorithm, and profiling 
status. 

In this report, the traveling salesperson problem (TSP) and IDA* search algorithm 
[4] will be used as running examples to illustrate the procedure of coding new application 
problem solvers and new search algorithms, respectively, on ISE. 

This manual is organized as follows. Section 2 briefly describes the architecture of 
ISE. Section 3 describes WISE core routines. Section 4 describes the development of 
application problem solvers. Section 5 describes the interface between ISE and new 
application solvers. Section 6 describes the procedure of implementing new search algo- 
rithms on ISE. Section 7 describes sample runs and sample profiles. Finally, section 8 
draws the conclusion. 
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Figure 2.1 IS E Architecture. 


2. ISE ARCHITECTURE 

The ISE architecture can be illustrated in Figure 2.1. Potential users can add new 
search algorithms and new application solvers into ISE with minimal interfacing and 
minimal efforts in coding. Further, application users can solve the search problem by 
using any search algorithm in ISE simply via the parameters in the command line. In this 
sense, ISE is an open software and it can be expanded by adding new application solvers 
and new search algorithms. 

Physically, ISE is a collection of routines about search primitives, search control, 
statistics, and profiling mechanism. They are stored over several directories: 
include/, primitive/, algorithm/, kernel/, open/, inter- 
face/, and solver/. 

Directory include/ contains all necessary macros, constants, data structures, 
and declarations of global variables. Directory primitive/ contains all the search 
primitives which is the building block of all search algorithms in ISE. The basic primi- 
tives currently implemented are 
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bf s_primitive: best-first search primitive. 

dfs_primitive: depth-first search primitive. 

gdf s_primitive: guided depth-first search primitive. 

gbb_primitive: generic branch-and-bound search primitive. 

band_primitive: band search primitive. 

Directory alogirhtm/ contains all the routines of search algorithms. Default 
search algorithms means pure BFS, DFS, GDFS, and B&B. In fact, BFS and GDFS can 
be represented by B&B with best-first and depth-first selection functions, respectively. 
However, the memory behavior of these searches are entirely different; therefore, they 
are intended to be seperated. Other search algorithms are implemented by manipulating 
search primitives or algorithms. 

Directory kernel/ contains all kernel routines about search maintenances, 
resource usage monitoring, resource constraint checking, and statistics monitoring. 

Directory open/ contains routines which dynamically allocate chunks of space for 
search nodes. The deallocations are done by pooling the deallocated space for future allo- 
cations. Also, this directory contains the manager of active lists in the search. Note that 
the active lists may be different for different search primitives due to efficiency reasons. 

Directory interface/ contains all the routines which parse context-free, user- 
friendly command lines and generate particular statistics specified by users. 

All the application solvers are stored in directory solver/. The problem- 
dependent routines for one specific problem are kept in one directory, for example 
solver/ats .pgm/ for the TSP, which contains several small files including routines 
of search node allocation, search node evaluation, and search node decomposition. 

The search primitives are the basic search units. Currently, best-first, depth-first, 
guided depth-first, generic branch-and-bound search, and band search primitives are pro- 
vided in ISE. From now on, let “bfs”, “dfs”, “gdfs”, “gbb”, and “bs” denote best- 
first, depth-first, guided depth-first, generic branch-and-bound search, and band search, 
respectively. 

Before a search primitive can be called, some information called search parameters 
must be ready, and they include 
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(1) Resource Constraints. Constraints of time, space, and cumulative space-time (CST) 
cost can be specified such that the search will be terminated when any of these hard 
constraints is violated. 

(2) Degree of Approximation. The expected degree of approximation of the solution 
can be used as a parameter to the search primitives. The degree of approximation is 
in the range of [0, °°). The solution is called the optimal solution if the degree of 
approximation is zero; otherwise, the solution is called a-approximately semi- 
optimal solution, if the degree of approximation is a. 

(3) Statistics Status. The search process can be measured logically or physically. The 
measurement includes time, space, and CST cost. The physical time is measured by 
the timer provided by the operating system. The physical space is measured by the 
number of words in storage used for storing search nodes. The physical CST is the 
cumulative product of physical space and physical time. The logical time is meas- 
ured by the number of search nodes expanded or the number of search nodes gen- 
erated according to user’s specification. The logical space is measured by the 
number of active search nodes. The logical CST is the cumulative product of logi- 
cal space and logical time. 

(4) Profiling Status. The search process can be profiled at run time. The profiling status 
gives the information about what kind of profiling needs to be done. The profiling 
covers time, space, CST cost, and degree of approximation. 

(5) Algorithm-Specific Constraints. The algorithm-specific constraints differ from the 
hard resource constraints in the way that when the algorithm-specific constraints are 
violated only the search primitive is terminated, while the entire search algorithm 
may be terminated if any of the hard resource constraints is violated. In practice, 
the algorithm-specific constraint may be the expected optimal value, e.g. threshold 
in IDA* [3]. 

A search algorithm can be defined recursively by either a sequence of search primi- 
tives or search algorithms. A sequence is a tuple of one or more ordered items. A search 
algorithm is said in ISE format if it is represented by a sequence of search primitives or 
search algorithms. For example, IDA* [3] can be represented by a sequence of “dfs” 
primitives with proper setting of resource constraints and algorithm- specific constraints. 
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By feeding proper parameters, we can do profiling intra search primitives or inter search 
primitives. We can implement new search algorithms by simply manipulating search 
primitives. One powerful support in ISE is that any search algorithm of hierarchical 
fashion can be easily implemented by manipulating builtin search algorithms and search 
primitives. Several of the famous search algorithms are represented here in ISE format 
as examples of manipulating search primitives and search algorithms. 

A* = <bfs> 

DFS = <dfs> 

IDA = <dfs-l, dfs-2, ..., dfs-n> 

sTCA* = <bfs-l, bfs-2, .... bfs-n> 

pTCA* = <bfs> ; with profiling intra search primitive. 

dTCA* = <bfs> ; with profiling intra search primitive. 

sTCGD* = <gdfs-l, gdfs-2, ..., gdfs-n> 

pTCGD* = <sTCGD*, gdfs> ; with profiling inter search primitives. 

Beam Search = <gbb> ; by properly defining selection and pruning. 

Hill-Climbing Search = <gbb> ; by properly defining selection and pruning. 

3. ISE CORE ROUTINES 

In this section, the problem independent part of ISE is described. The core routines 
are kept in several function- specific directories. Roughly, these core routines can be 
classified into several categories: definitions and declarations (include/), search 
primitives (primitive/), search algorithms (algorithm/), ISE kernel (kernel/), 
memory management (open/), 10 transducer (interface/). These categories are 
described following. 

3.1. Definitions and Declarations 

The definitions of data structures are put in include /define .h such that all 
routines can access these definitions. The problem-independent part of the search node is 
also defined in this file; while the problem-dependent part is defined by users. The 
Makefile will automatically include the definition of the problem-dependent part and 
make the definition of node structure complete. The declarations of all global variables 
and the routines of initializing data structures are put in include /var . c. The 
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corresponding external declarations are in include /var . h. The limiting constants, 
e.g. maximum integer, maximum long, and maximum floating-point number, are defined 
in include/limits .h, which is used to patch the systems that do not support com- 
plete limiting constants, e.g. Sun 3/60 workstation. Some global variables used for 
debugging are defined in include/ debug .h and declared in include/debug . c. 

There is a trick for all definition and declaration routines such that all of them will 
be compiled once. The trick is setting a compiler directive to check reentrance. 

#ifndef define_h_ 

fdefine define_h_ 

<body of define.h> 

#endif define_h_ 

3.2. Search Primitives 

The search primitives supported in ISE include “bfs”, “dfs”, “gdfs”, “gbb”, and 
“bs” primitives. They are located in primitve/bfs . c, primitive/dfs . c, 
primitive/gdf s . c, primitive/bb . c, and primitive/band. c, respec- 
tively. The input arguments to these search primitives are a pointer to a search structure, 
a pointer to its parent’s search structure, and a message consisting of search controls and 
profiling status. 

The search structure, see search_ { ...'}, includes resource constraints, cost 
data type, measurement system, statistics status, algorithm-specific constraints, degree of 
approximation, and some algorithm- specific information. 

The resource constraints are used to limit the resource usage of the search in a way 
that the search is terminated when any of the resource constraints is violated. If the 
search is at the top level, i.e. root search , then the entire search process is terminated 
when any of the resource constraints is violated. However, if the search is at the inter- 
mediate or leaf level of the hierarchy of searches, i.e. at the root, then only the particular 
search is terminated when any of its resource constraints is violated. 

The cost data type indicate the data type of the solution value, e.g. integer or float. 
The measurement system indicates that time, space, and CST cost are either logical or 
physical. In fact, both physical and logical measures are taken in ISE. 
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Statistics status keeps track of statistics of search performance like number of 
search node generated, number of search node expanded, number of search nodes pruned, 
and number of feasible-solution search nodes. These statistics are very important, since 
they can be used to determine the performance of a particular search algorithm. The 
parent’s search structure is used only for the statistics tracing. 

The algorithm-specific constraints provide another way to terminate the search 
prematurely. Typically, the expected optimal solution value is one of the soft con- 
straints, which is used in IDA* [3], i.e. the threshold. 

The degree of approximation is used to solve the problem approximately by pruning 
more nodes that might lead to the optimal solution. The approximation means the solu- 
tion is complete but is not optimal, instead of incomplete or partial solution. 

All the search primitives have an algorithm-specific entry inside their routines, 
which allows the search algorithm designers to do some accounting, maintenance, and 
search process adapting. 

The search message has a control flag indicating this particular search primitive 
should be started freshly or simply resumed. This allows to resume an old search ter- 
minated prematurely. 

The algorithm- specific entry, the capability of resumption, and the algorithm- 
specific constraints allow the search algorithm designers to have the freedom to manipu- 
late different styles of search algorithms. 

3.3. Search Algorithms 

The search algorithm designers can put the source codes of their algorithms to the 
directory algorithm/. Currently existing algorithms include pure BFS, DFS, GDFS, 
general B&B [4], and band search [2], as well as TCA* (sTCA*, pTCA*, and dTCA*) 
[7] and TCGD (sTCGD and pTCGD) [8], iterative deepening A* (IDA*) [3], iterative 
refining A* (IRA*) [5], DFS* [6], real-time search (RTS) [1], and Lawler and Wood’s 
time-constrained approximation search [4], 

All these search algorithms can be defined as a sequence of either search primitives 
or search algorithms. For example, IDA* is a sequence of “dfs” primitives, and pTCGD 



-9- 


is a sTCGD algorithm (with profiling inter search primitives) followed by a “gdfs” 
primitive. Through the support of search primitives and profiling mechanisms, the search 
algorithm designers will find that it is very easy to implement their search algorithms by 
manipulating the search primitives and profiling mechanisms. 

3.4. ISE Kernel 

The kernel includes the main routine and all the routines about tracing statistics, 
profiling, and supporting utilities. The statistics include the performance of the search 
process and the measures of the resource usages. The profiling can be either intra search 
primitive or inter search primitives. If the profiling is intra search primitive, then the 
search message fed to the search primitive must have a signal indicating that. If the 
profiling is inter search primitives, then the profiling routines can be called between two 
contiguous search primitives. The supporting utilities include a wide spectrum of small 
routines which make coding easy and data structures abstract. 

3.5. Memory Management 

The memory management includes the allocation and deallocation of search nodes 
as well as the handling of the active lists of search nodes. 

The allocation and deallocation of search nodes should match the computer archi- 
tecture and hierarchical memory organization such that the search process will not suffer 
from frequent swapping or thrashing due to virtual memory faults. In ISE, the search 
nodes are allocated chunks by chunks, where the chunk size AllocationSize is 
defined by the application solver, because the size of a search node may vary over several 
orders of magnitude for different applications. In this way, the search nodes have high 
probability that they are located nearby such that they will not spread over the entire vir- 
tual memory. Further, the deallocated search nodes are kept in a linked list for future 
allocations rather than released to the operating system. In this way, the spatial locality 
and temporal locality during the search can be reserved. 

The active list is a conceptual term, because it is physically different for different 
search primitives. For the “bfs” primitive, the active list should be a B-i- tree, which 
allows logarithmic time to insert or delete a search node in the B+ tree as well as 
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provides easy locating the search nodes whose lower bounds no less than a certain value 
such that pruning in the active list can be done more easily. However, the general “bfs” 
primitive should allow a set of keys instead of a single key, therefore, the “bfs” primi- 
tive should use a linked list for its active list due to difficulty in pruning by bounding. If 
the compiler option BPLUS_TREE is defined, then the B+ tree is used; otherwise, the 
linked list is used. 

For both “gdfs” and “gbb” primitives, the active list is simply a linked list. The 
reason is that the number of search nodes in the active list of a “gdfs” primitive is 
bounded by the product of the maximum branching degree and the maximum depth of 
the search tree. The reason of using a linked list for the “gbb” primitive is that the 
active list is ordered by a certain selection function defined by the application solver and 
the pruning function is also defined by the application solver. Both functions are applica- 
tion problem dependent so that the B+ tree will make pruning very complex. Note that 
pruning is not necessarily to be bounding, and it can be dominance and approximation. 
Therefore, the simple linked list is used for the “gbb” primitive. 

For the “dfs” primitive, the active list is simply a stack whose size is bounded by 
the depth of the search tree. The “dfs” primitive is actually a backtracking search and 
all search nodes are partially expanded instead of being fully expanded as in other search 
primitives; therefore, a stack must be used for backtracking instead of linked list or B+ 
tree. 


3.6. IO Transducer 

The IO transducer consists of the command-line processor and the versatile output 
generator. 

3.6.1. Command Line Processor 

The command-line processor in interface/command. c parses the command 
line and transforms the command parameters into the internal format of search controls. 
Application users can define which search strategies and algorithms are to be used for 
solving the application. Further, users also can define how many sample problems are to 
be solved as well as the profiling status and the resource constraints via the command 
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line. The typical command line is following. 

search :prob iter size seed 
[ : virtual | : real] 

[:report [report-file]] 

[: search bfs [default | alg] | 

: search gdfs [default | alg] | 

: search dfs [default | alg] | 

: search band [default | alg]] 

[rconstr time [space [cst]]] 

[: approx approx] 

[ :dbg dbg] 

[:io stat [summary [graph-ready [rt-pf [st-pf ] ] ] ] ] 

[:pf rt [st]] 

[ :param num_params p-1 p-2 . . . p-n] 

where ’[]’ means the parameters are optional and Parameter :prob must be specified; 
otherwise, ISE cannot know what the problem size is, how many sample problems to 
solve, and how to generate the sample problems. 

The measurement of resources is either : virtual or : real. The former indi- 
cates logical measurement and the latter does physical measurement. The : report 
option provides an entry for monitoring the algorithm-specific performance, eg. in IDA* 
the performance of each iteration can be output to the file specified in : report. The 
: search bfs default defines that the search primitive is bfs and the search 
algorithm is default, that means that the search algorithm only contains a single 
search primitive. The. :prob iter size seed defines that the number of sample 
problems is iter, the sample problem size is size, and the seed to the random 
number generator is seed. The :constr time space cst defines that the time 
constraint is time, the space constraint is space, and the cumulative space-time pro- 
duct constraint is cst. The : approx defines the degree of approximation. The 
:dbg defines the debugging mode which allows multiple-level details of debugging 
information. The : io defines the names of the output files, where the first one is for the 
performance statistics in the list format, the second one is for the summary of perfor- 
mance statistics with more detailed information, the third one is for the graph-ready for- 
mat of performance statistics, the fourth one is for the run-time profile, and the fifth one 
is for the space- vs-time profile. The :pf rt st defines that the run-time profiling 
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status is rt and the space-time profiling status is st. If the profiling is desired, then the 
status is YES; otherwise, it is NO. The :param is for algorithm-specific parameters. 

If some of these parameters are not specified in the command line, ISE have default 
values for them. The default command line is as follows. 

search : virtual 

: report report 
: search bfs default 

:prob undefined undefined undefined 
:constr unlimited unlimited unlimited 
: approx 0 . 0 
:dbg 0 

:io stat summary graph-ready rt-pf st-pf 
:pf 0 0 

3.6.2. Output Generator 

The output file generator is in interface/output . c which can produce the 
summary of performance of search processes as well as the performance data in the for- 
mat which can be used directly by the graph package grap. The performance items to 
be put in the graph-ready format can be specified by the application solver in the file 
named output . h in the application- specific directory. 

The performance statistics in the list format are generated by the routines in 
interface/result .c which summarize the performance statistics into a list which 
can be easily used by a LISP program. To be more specific, the items in this list is equal 
to the number of sample problems solved plus 1. Each item is a list of performance 
statistics of the search processes solving a sample problem. The first item is the averages 
of the performance statistics over all sample problems. The others are the performance 
statistics for all sample problems, one for each. 

4. APPLICATION DEVELOPMENT 

In this section, the development of a new application program will be described. 
The user must provide several problem-dependent routines. These problem-dependent 
routines include: 

(1) Problem Definition'. The problem-dependent data structures as well as their 
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initialization routines are defined and the corresponding global variables are declared. 

(2) Bounding Function Routines : They evaluate upper and lower bounding functions, if 
applicable. 

(3) Sample Problem Generator: A routine can generate new sample problems upon the 
problem size and a random seed given. 

(4) Search Node Management Routines: A collection of routines can (i) allocate search 
nodes by calling ISE search node allocation facility, (ii) initialize the problem-dependent 
part of a search node, and (iii) set up the links inside a search node to the problem- 
dependent size-dependent region. 

(5) Problem-Dependent Search Components: Feasibility and infeasibility tests as well as 
search environment initializations are needed. 

Currently, several applications have been implemented in ISE, including symmetric 
traveling salesperson problem (sTSP), knapsack problem (KS), production planning 
problem (PP), vertex cover problem (VC), weighted completion time problem (WCT), 
general resource constrained scheduling problem (GRCS), asymmetric traveling 
salesperson problem (aTSP), maze problem (Maze), and iV-puzzle problem (Puzzle). The 
maze generator in ISE is modified from the XI 1R4 maze generator [3], 

5. INTERFACING 

The interface between ISE and application solvers are described in this section. The 
interface includes definitions of data structures, necessary routines, and specifications of 
parameters. 

5.1. Definitions of Data Structures 

Several data structures must be defined by the application problem solver developer, 
since they are problem-dependent. These include the data type of solution values, the 
allocation chunk size, the problem-dependent part of search nodes, and the solution struc- 
ture. Take the TSP as an example. The TSP solver must define domain, Alloca- 
tionSize, PDSI_P ART macro, and solution_ structure, as we can see in Appen- 
dix. 
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5.2. Necessary Routines 

Several problem-dependent routines are required to make ISE work correctly. They 
include sample problem generation, bounding function routines, feasibility and infeasi- 
bility tests, adaptive search node decomposition, root generation, search node allocation, 
search node initialization, search node linkage, solution buffer management, and solution 
interpretation. 

6. DEVELOPMENT OF NEW ALGORITHM 

In this section, the procedure of developing a new search algorithm is described. 
The procedure is simple and it include the following steps. 

(1) Map the new search algorithm into a sequence of search primitives. 

(2) Set up the bookkeeping and interfacing between contiguous two search primitives. 

(3) Translate the sequence of search primitives and the associated bookkeeping and inter- 
facing into the C language forms ISE supports. 

Take IDA* as an example. First, IDA* can be represented as a sequence of “dfs” 
primitives. Second, design the algorithm which maintains the threshold setting between 
contiguous “dfs” primitives. Third, translate them into the C language forms ISE sup- 
ports. The IDA* search algorithm in the ISE format can be found in Appendix. 

7. SAMPLE RUNS 

In this section, we will show some sample commands and their results. 

Assume ISE is compiled for the symmetric TSP by command “make all”. Assume 
we wish to solve a fifteen-city TSP instance using best-first search. Then, the command- 
line input is 

ts :prob 1 15 1 : search bfs default 
The summary result in file summary is 


counting system=virtual 
time unlimited 
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space unlimited 

cst unlimited 

real time=677 

real max space=27280 

real cst=l . 18474e+07 

virtual time=415 

virtual max space=155 

virtual cst=41221 

root approx=0 . 300167 

run-time approx=0 

optimal solution value=318 . 554 

cmd-line (or adapted) approx=0 

achieved approx=0 

run-time approx=0 

The above summary is quite self-explanatory. The row-wise result in file graph- 
ready is 

999999999 415 155 41221 0.300167 0 0 318.554 318.554 le+20 

The first item is the time constraint, where “999999999” denotes infinity. The second, 
third, and fourth items are completion time, maximum space used, cumulative space-time 
product, respectively. The fifth one is the run-time approximation degree of the root 
node. The sixth and seventh items are the final run-time approximation degree and the 
final achieved approximation degree, respectively. Both are zeros because the optimal 
solution is solved. The eighth and ninth items are the incumbent and the global lower 
bound, respectively. Both are equal to the optimal solution. The last one is the thres- 
hold, where “le+20” denote the infinite threshold. 

If we want to use guided depth-first search for solving the same TSP instance. The 
command is 


ts :prob 1 15 1 : search gdfs default 


The summary file becomes 

counting system=virtual 
time unlimited 
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space unlimited 

cst unlimited 

real time=677 

real max space=5280 

real cst=l . 67218e+06 

virtual time=421 

virtual max space=30 

virtual cst=6095 

root approx=0 . 300167 

run-time approx=0 

optimal solution value=318 . 554 

cmd-line (or adapted) approx=0 

achieved approx=0 

run-time approx=0 

The “graph-ready” file is cumulative and now becomes 

999999999 415 155 41221 0.300167 0 0 318’. 554 318.554 le+20 

999999999 421 30 6095 0.300167 0 0 318.554 318.554 le+20 

If we want to use the band search of bandwidth 5 for solving the same TSP instance. 
The command is 


ts :prob 1 15 1 : search band default :param 2 5 F 

where parameter “F” means the bandwidth is fixed all the time. The summary file 
becomes 


counting system=virtual 

time unlimited 

space unlimited 

cst unlimited 

real time=663 

real max space=17072 

real cst=4 . 56086e+06 

virtual time=415 

virtual max space=97 

virtual cst=16821 

root approx=0 . 300167 

run-time approx=0 

optimal solution value=318 . 554 

cmd-line (or adapted) approx=0 
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achieved approx=0 
run-time approx=0 

The “graph-ready” file is cumulative and now becomes 

999999999 415 155 41221 0.300167 0 0 318.554 318.554 le+20 

999999999 421 30 6095 0.300167 0 0 318.554 318.554 le+20 

999999999 415 97 16821 0.300167 0 0 318.554 318.554 le+20 

Note that the third one is band search of bandwidth 5. In many cases, band search (cf. 
data in the third row) can almost use the same amount of time as best-first search (cf. data 
in the first row), but in general requires less memory. In fact, band search use bounded 
amount of memory [2], 


8. CONCLUDING REMARKS 

ISE is still an evolving software to support the research on design of resource- 
constrained search algorithms. ISE is aimed to support a wide spectrum of search algo- 
rithms and application solvers. Its goal is to move the problem-independent part of 
application solvers into an integrated kernel such that the integrated kernel is transparent 
to the designers of either new applications or new search algorithms such that they can be 
done in less time as possible. 
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APPENDIX 


The source code of ISE software is listed as below. The software consists of 
“include”, “primitive”, “algorithm”, “kernel”, “open”, “interface”, and “solver” 
directories. The applications include TSP, KS, PP, VC, WCT, GRCS, Maze, and Puzzle. 
Further, relevant makefiles are also listed. 


ISE — Integrated Search Environment 
COPYRIGHT (C) 1992 

The University of Illinois at Urbana-Champaign 

Any part of this software can be used, modified, or copied only if either Professor 
Benjamin W. Wah or Mr. Lon-Chan Chu is acknowledged. 

This software does NOT provide ANY WARRANTY and even not any implied 
warranty of merchantability or fitness for a particular purpose. 

This software is NOT responsible for any damage of the machine due to execution 
of this software. 



ISE' include, CRHC-92-1 


Thu Jan 30 15:19:05 CST 1992 


include/limits . h 


•ifndef wi se_l imit s_h_ 

• define wi se_limits_h_ 

/** Some UNIX versions support the following limiting numbers: 
** I NT_MAX - 2147483647 

** LONG_MAX - 2147483647 

** FLT_MAX » 3.4028234 6638528860e+38 

** DBL_MAX = 1.7 97 69313486 23 15 7e +308 **/ 

•define HUGE_INT (9999999) 

•define HUGE_LONG (999999999) 

• define HUGE__ FLOAT (1.0e20) 

•define HUGE_DOUBLE (l.OeSO) 

•define HUGE_DEPTH HUGE I NT 

•endif wise limits h 


include /define. h 


•ifndef wi sedef ine_h_ 

•define wlse_def i no_h_ 

•include <stdio.h> 

•include <ctype.h> 

•include <string.h> 

•include <math.h> 

•include <sys/types. h> 

•include <sys/t imes. h> 


• define RAN DOM_RAD IX ((float) (0x7 f f f f f f f ) ) 


/* const definitions V 

•define NIL (' \0' ) 

•define DONT_CARE (- 100) 

/* predicting & profiling */ 

•define PROFILING_STEP 5 

•define REGRESSION ORDER 1 


/* problem-dependent definitions, if they are forgotten to be defined */ 

•ifndef MaxProblemSize 

•define MaxProblemSize 200 

•endi f 

•ifndef AllocationSize 

•define AllocationSize 256 

•endi f 

•ifndef MaxNumberOf Problems 
•define MaxNumberOf Problems 100 

•endi f 


•ifndef NumberOfBins 


•define NumberOfBins 
•endi f 


50 


•ifndef MinFeasibleTime 

•define MinFeasibleTime (problem. si ze) 

•endi f 

•ifndef FirstMaxDepth 

•define FirstMaxDepth 256 

•endi f 


• define is feasible_t ime (t ) (t >•» MinFeasibleTime) 


/* algorithm specific definition */ 

•ifndef MinValidBin 

•define MinValidBin 4 

lendl f 


/» type conversion shorthand •/ 

• define toshort (a) ((short) (a)) 

• define toint (a) (lint) (a)) 

•define tolong(a) ((long) (a)) 

•define tofloat(a) ((float) (a)) 

•define todouble(a) ((double) (a)) 

• define min(a,b) ( (a > b) ? b : a) 

• define max(a,b) ( (a > b) ? a : b) 

• define in(a,b,c) ((a >= b) && (a <» c) ) 

•define streql(a,b) (! st romp (a , b) ) 

•define accu2approx (a) ((a = «■ 0.0) ? huye_float : 1.0 /a - 1.0) 

•define approx2accu (e) ( (e == huge_float) ? 0.0 : 1.0 / (e + 1.0)) 


/• what the search for */ 

enum _task_ ( LEARNING * 0, CSP « 1 |; 

typedef enum _task_ task_; 

/* search style *( 

enum _search_style_ | RESUME = 0, FRESH_START 3 1 ); 
typedef enum _search_ st yle_ search_style_; 

/* question answer */ 

enum _yesno_ ( NO = 0, YES =1 }; 

typedef enum _yesno_ yesno_; 

enum _boolean__ { FALSE = 0, TRUE = 1); 
typedef enum _boolean_ boolean_; 

/** threshold is defined absolutely or relatively **/ 
typedef enum ( ABSOLUTE » 0, RELATIVE = 1 ) metric; 


/* search ending info */ 
enum search_ending_ ( 
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SEARCH__IS_ABORTED = 0, 

$EARCH_IS_COMPLETED » 1, 

SEARCH_IS_IDLE = 2 

I ; 

typedef enum _sea rch_ending_ search_ending_; 

/* domain data types */ 

enum _datatype_ { INT = 1, LONG “ 2, FLOAT ■ 3, DOUBLE « 4); 
typedef enum _datatype_ datatype^; 


/* search strategies •/ 

enum _strategy_ { GBB, BFS, DFS, GDFS, BAND ); 
typedef enum _stracegy_ strategy^; 


/* search algorithms V 

enum _algorithm_ { DEFAULT, 

LW, 

sTCA, pTCA, dTCA, 
sTCGD, pTCGD, 
uRTS, b RT S , hRTS, 
uIRI), bIRD, 

IRA, ! DA, DFS star, 

?BFS, PDFS, PGDFS, PGB3, PBAND ); 
typedef enum _algorithm_ algorithm_; 

/* definitions for counting system ■/ 
enum _count_ { REAL, VIRTUAL } ; 

typedef enum _count_ count ; 

/* profiling signals */ 

enum _psignal_ ( RUN-TIME = -10, SPACE_VS_TIME - -20 |; 
typedef enum _psignal_ pslgnal ; 

/* which child to be expanded */ 

enum _child_ { ALL_CHILDRF.N • -1, NEXT_CHILD, NEXT_N_CHI LDREN 1; 
typedef enum _child_ child ; 


/* enumerative type */ 

enum _enum_type__ \ TYPEJ4ULL = 0, TYPE_I - 1, TYPE_II » 2, TYPE_III » 3, 
TYPE~IV = 4, TYPE_V - 5, TYPE_VI «* 6, TYPE_VII * 7, 
TYPE_VIII » 8, TY?E_IX - 9, TYPE_X « 10 \; 


typedef enum _enum_type_ 

enum_type_; 

/* search prob. 

info */ 



struct _problem_ 

{ 



int 

domain; 



int 

size; 

/* 

problem size */ 

int 

seed; 

/* 

random seed *f 

domain 

opt_value; 

/* 

the optimal value */ 

domain 

huge; 

/* 

huge number in the domain 

task_ 

task; 

/* 

task: search or learning 


) ; 

typedef struct _problem_ problem^; 


struct __constr { 
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struct _stat_ ( 

long num_op; /* I operations in parallel search */ 

long generated; /* f nodes generated */ 

long expanded; /* # nodes expanded */ 

long feasible; /* # nodes feasible */ 

long infeasible; /* I nodes infeasible */ 

long active; /* I nodes active */ 

long bounded; /* 0 nodes bounded */ 

long dominated; /* 0 nodes dominated */ 

long bounding; /* # nodes bounded by new node */ 

long dominating; /* 0 nodes dominated by new node */ 

long hard_bounded; /‘ 0 nodes hard bounded, for ida */ 

/* pruned bounded + dominated + bounding 4 - dominating */ 


long 

time; 

/* 

real timer */ 

long 

max_act ive; 

/* 

max space usage */ 

float 

v_cst ; 

/* 

virtual cst */ 

float 

r_cst ; 

/• 

real cst */ 

long 

unix_ut ime; 

/* 

user time provided by Unix */ 

long 

i . 

unlx_st ime; 

/* 

system time provided by unix 

r t 

typedef struct 

stat_ 

stat_; 


struct 

_approx_ 

1 




float 

approx; 




float 

accu; 




float 

run_t ime; 




float 

predi cted; 




float 

root_approx; 




float 

root^accu; 




float 

x_rooc_approx; 

/* external root's 

approx degree 

i . 

float 

achieved; 

/* approx achieved 

already */ 

l • 

typedef 

struct 

a pprox_ 

approx,* 



NODE STRUCTURE node_ 

a node structure node_ consists of three parts: 

(a) PI {problem independent): 
permanent and predefined in B4B shell. 

(b) PDSI (problem independent but size dependent) : 
user-defined in 'node.h' 

(c) PDSD (problem and size dependent): 

user-defined in 'node.h' with an array of sizes for all regions, 
all PDSD regions are accessed via pointers in PDSI. 

*/ 

enum _nodetype_ { INACTIVE, ACTIVE_SINGLE, ACTIV£_COMPOUND |; 
typedef enum _nodetype_ nodetype_; 


0def i ne 

PDSI_ 

struct 

PDSI 

0def ine 

PDSD__ 

struct 

PDSD 


struct _node | 

; 






struct 

node_ 

*pa rent; 





struct 

_node_ 

‘next; 

/* 

used 

in 

the search tree ‘/ 

struct 

_node_ 

‘brother; 

/* 

used 

in 

children list */ 

struct 

_node_ 

‘left; 

/* 

used 

in 

b_plus tree */ 


struct _node_ ‘right; /* used in b_plus tree ‘/ 

struct node_ ‘up; /* used in b_plus tree */ 

lnt entity; /* entity id, ie, city id currently visited */ 

int depth; /* depth of this node */ 

int nsprout; /* number of live children */ 

int ndecomp; /* number of docomposed */ 

nodetype_ type; /* type of search node, 

non- zero active, 0 inactive; 
specifically, 2: compound; 1: ordinary */ 
domain g cost; /* g_cost is the current node's actual cost */ 

domain lowb, upb; /* node's lower bound and upper bound */ 

PDSI PART /* PDSI part which is declared in 'node.h' •/ 

) ; 

typedef struct _node__ node_; 

struct _node_conf_ { 

/* all sizes are in terms of integer */ 

lnt pdsd_size; /* size of prob-dep, size-dep part */ 

int node_size; /* size of a entire node */ 

/* node_size- (pdsd_size + si zeof (node ) ) */ 

I; 

typedef struct _node_conf_ node_conf_; 


struct _regress_ ( 

double x_sum; /* sum of x's */ 

double x2_sum; /* sum of x squares */ 

double y_sum; /* sum of y's •/ 

double xy_sum; /* sum of xy products */ 

double n; /* number of points */ 

double beta ( REGRESSION_ORDER * 1); /* regression coeff's V 

I; 

typedef struct _regress_ regress,* 


struct _stca_ ( 

float g_factor; 

I; 

typedef struct _stca_ 


struct _stcgd_ ( 

float g_factor; 

); 

typedef struct _stcgd_ 


struct _ptca_ ( 

regress_ regress; 

float s_factor; 
float c_factor; 

I; 

typedef struct _ptca_ ptca_; 


struct _ptcgd_ ( 

regress_ regress; 

float g_factor; 
float s_factor; 
float c factor; 


stca_; 


stcgd_; 


I; 



ISE' include, CRHC-92-1 


typedef struct _ptcgd_ ptcgd_; 

struct _dt ca_ { 

regress_ regress; 

float s_factor; 
float c_factor; 

typedef struct _dtca_ dtca ; 


struct _myida_ { 

domain threshold; 
float g_factor; 

) ; 

typedef struct _myida_ myida__; 


struct _ida_ { 

float ida_g__fact; 

int ida__n; /* Number of histogram bin */ 

int -ida_bln; /* Histogram bin */ 

1 ; 

typedef struct _ida_ ida_; 


struct _ida_list_ { 

struct _ida_list_ -next; 

int num_node; 

domain threshold; 

}; 

typedef struct _ida_list_ ida_list_; 


struct _ida_stat_ { 

int iter; 

int prev_node_expanded; 

float max_exp_f actor; 

float tot_exp_factor; 
float min_exp_factor; 
domain threshold; 
ida_list_ *ida_hist; 

1 ; 

typedef struct _ida_stat_ ida_stat_; 


enum _unary_alg_ ( UNARy_APPROX = 2, UNARy_TH = 2 \; 
typedef enum _unary_alg_ unary_alg_; 


enum _th_alg_ { NAIVE_TH ■=> 1, STATIC_TH = 2 , PREDICTIVE_TH = 3 |; 
typedef enum _th_alg_ th__alg_; 


enum _iter_attr_ { LAST_ITER = 1, LAST_2ND_ITER = 2 , OTHER_ITER = 3 ); 
typedef enum _iter_attr_ iter_attr_; 


enum _span__ { FULL_SPAN = 1, PARTIAL_SPAN = 2 ); 
typedef enum _span_ span_; 


struct __set_t { 
t h_alg_ 


a lg; 
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domain 

th; 





enum type 

a type; 

/* 

approx 

type 

*/ 

set_th_ 

*set_th; 





float 

g_factor; 

/* 

step factor 

*/ 

float 

r_factor; 

/* 

growth 

rate 

*/ 


} ; 

typedef struct _bird_ bird_; 


struct _search_message__ { 

search_sty le_ style; 

regr ess_ *rp; 

yesno_ alg_entry; 

yesno_ rt_pf; 

yesno_ st_pf; 

yesno_ feasible; 

) ; 

typedef struct __search_message_ search_message_; 
typedef struct ( 

n °de__ ‘young; /*• list of youngs of this depth **/ 

int count; /•* num of adults of this depth *•/ 

i nt width; /** width of this depth **/ 

) t ree ; 


typedef struct i 


int 

cei ling_depth; 

/-• 

lower bound of depth • 

*/ 

i nt 

f loor_depth; 

/*• 

upper bound of depth * 

*/ 

1 nt 

ini t_width; 

/•* 

inlt_width of band **/ 


t ree_ 

•tree; 

/** 

band search's array of 

youngs 


) band_v 


struct _search 

i 


st rategy_ 
a Igor it hm_ 

strategy; 
a Igor it hm; 




domain 

gl ub; 

/* 

globai least upper bound 

*/ 

domain 

glib; 

/* 

global least lower bound 

V 

domain 

root_lb; 

/* 

root's lower bound */ 


domain 

root ub; 

/* 

root's upper bound */ 


domain 

x_root lb; 

/* 

external lower bound */ 


domain 

x_root_ub; 

/* 

external upper bound */ 


stat_ 

scat; 

/* 

statistics */ 


const r 

const r; 

/* 

constraints */ 


approx_ 

approx; 

/* 

approx */ 


sol ut ion_ 

• incumbent; 

/* 

incumbent */ 


band_ 

band; 

/* 

* band descriptor in band 

search **, 

domain 
union active 

i 

next_ida_th; 
1 i st 

/* 

* for IDA* only **/ 


i 

node_ 

‘bptree; 

/* 

bfs b plus tree */ 


node_ 

*bt ree; 

/* 

bfs virtual b+ tree, & band search 

node 

‘list; 

/* 

open list, for gdfs */ 


node 
} open; 

• stack; 

/* 

activation stack, for dfs 

*/ 


union alg_struct 
{ 


void 

*def; 

/* no associated structure is needed 

void 

* lw; 


stca__ 

* st ca; 


ptca_ 

* pt ca ; 
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p->num_pe = 1; 

p->comm_idle = 0 ; 

p->first = 0; 

p->iter - 1; 

p->debug =0; 

p->cut_ratio = 0.5; 

p->xon = NO; 

p->report » NO; 

p->count = VIRTUAL; 

p->strategy = BFS; 

p->algori thm = DEFAULT; 

p->approx • 0.0; 

p->accu * 1.0; 

p->constr .time = HUGE_LONG; 

p->constr . space = HUG E_ LONG; 

p->constr .cst ® HUGE_FLOAT; 

p->constr . bound ** problem. huge; 

p->bound_metric - ABSOLUTE; 

p->bound_base *» (domain) problem. huge; 

init_profile_st ruct (& (p->pf) ) ; 

P” >bw _ fx = FIXED_BW; 
p->nparam « 0; 
p->param » NULL; 


void init_factor_struct (p) 
factor_ *p; 

{ 

p->g “ 0.25; 
p->s - 0.15; 
p->c = 0.8; 

) 


void init_io_struct (lop) 
io_ * iop; 

{ 

iop->stat = "stat"; /* old out •/ 

iop->summary = "summary"; /* old constr.out */ 

iop->graph - "graph-ready"; 

iop->rt_pf = "run-time"; 

iop->st_pf = "space-time"; 

iop-> report ® "report"; 


void init_stat_st ruct (p) 
stat_ *p; 

i 

p->num_op =0; 
p->generated ** 0; 
p->expanded » 0; 
p->feasible = 0; 
p->infeasible = 0; 
p->active = 0; 
p->bounded = 0; 
p->dominated = 0; 
p->bo unding =0; 
p->dominating =0; 
p->hard_bounded = 0; 
p->max_actlve » 0; 
p->time = 0; 
p->v_cst = 0.0; 


p->r_cst = 0.0; 
p->unix_utime = 0; 
p->unlx_st ime s 0; 


void init_constr_st ruct (p) 
constr_ *p; 

{ 

p->tlme = cmd. const r. time; 
p->space = cmd. const r. space; 
p->cst * cmd.constr.cst; 
p->bound = cmd. constr. bound; 


void init_prof 1 le_struci (p) 
profile^ *p; 

{ 

p->rt ■ NO; 

p->st » NO; 

p->step • 0.01; 

p-> last_approx * HUGE_FLOAT; 

p->last_accu =* 0.0; 


void lnit_approx_st ruct (p) 
approx_ *p; 

( 

p->approx = cmd. approx; 
p->accu «= cmd.accu; 
p->predicted » 0.0; 
p->run_time= HUGE_FLOAT; 
p->root_approx ** HUGE_FLOAT ; 
p->x_root_approx ■ HUG£_FL0AT; 
p->achieved = HUG£_FL0AT; 


void init_band_struct (sp) 
search_ *sp; 

{ band_ *bp - & (sp->band) ; 

Int i, num; 

bp->cei ling_depth =0; 
bp->f loor_depth = 0; 

bp->ini t_widt h * get_int_cmd_llne_param (HUGE_INT, 0, 0) 

if (cmd.nparam <= 1) cmd.bw_fx = FIXED_BW; 
else [ 

switch {* * (cmd. param+1 ) ) ( 
case ' 1' : 

case * L' : cmd.bw_fx = LIN£AR_BW; break; 
case ' e' : 

case 'E': cmd.bw_fx = EXP_BW; break; 
case # V : 
case ' F' : 
case : 

default: cmd . bw_fx = FIXED_BW; break; 

\ 

I 


if (sp->strategy ~ BAND) ( 
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MaxDepth = FirstMaxDepth; 
num = MaxDepth +1; 

sp->band . tree = (tree_ *) malloc (num " si zeof (tree )); 
for (i = 0; i < num; i++) 

init_tree_st ruct (sp->band. t ree, i, sp->band . ini t width); 

) 

else sp->band. tree =* NULL? 


void init_tree_struct (tp, depth, init^width) 
tree_ *tp; ~ 

int depth, init_widch; 

( 

(tp+depth) ->young = NULL; 

(tp+depth) ->count = 0; 

(tp+depth) ->width = bandwidth_f unct ion (depth, init_width); 


void init_search_st ruct (sp, i nit_open_pt r, init_alg_pt r) 
search_ *sp; 

int i nit_open_ptr, inlt_a]g_ptr; 

{ 

sp->strategy = cmd . strategy ; 

sp->a Igor i thm = cmd .a Igor it hm; 

init_stat_struct (& (sp'>stat ) ) ; 

init_const r _struct (£ (sp->constr) ) ; 

i nit_approx_struct (& Up->approx) ) ; 

if (init_open_ptr) sp->open.bpt ree = NULL; 

if (init_alg_pt r) sp->alg.def « NULL? 

sp->chi Id =» NULL; 

sp->brother = NULL; 

sp->parent = NULL; 

sp->idle_clk = 0; 

init_band_struct (sp) ; 


void init__regress_struct (rp) 
regress_ *rp; 

{ int i ; 

rp->x_sum « 0.0; 
rp->x2_sum » 0.0; 
rp- > y_sum = 0.0; 
rp->xy_sum ■ 0.0; 
rp->n « 0.0; 

for (i = 0? i <= REGRESS I ONORDER; i + + ) rp->beta[i) - 0.0; 

) 


void init_stca_st ruct (p) 
stca_ *p; 

( p->g_factor = cmd . factor . g? } 

void init_ptca_st ruct (p) 
pt ca_ *p; 

I 

p->s_factor = cmd . factor . s; 
p->c_factor = cmd . factor. c; 
init_regress_struct (& (p->regress) ) ; 

) 


void init_dtca_st ruct (p) 
dtca_ *p; 

{ 

p->s_factor = cmd . factor. s; 
p->c_factor = cmd . factor. c; 
init_regress_struct (& (p->regress) ) ; 


void init_stcgd_struct (p) 
stcgd_ *p; 

( p->g_factor » cmd . factor. g; } 


void init_ptcgd_struct (p) 
ptcgd ‘p; 

1 

p->g_factor » cmd . factor. g? 
p->s_factor = cmd . factor. s; 
p->c_factor » cmd . factor. c; 
i ni t_regress_st ruct (& (p-> regress) ) ; 


void init_set_th_st ruct (p, Ldx) 
set_th_ *p; 
int ldx; 

( 

switch (• * (cmd.param * idx++) ) ( 
case • : 

case ' n' : p->alg = NAIVE_TH; break; 

case 's': p->alg -= STAT I C_T H ; break; 

case 'p': p->alg = PREDICTIVE_TH; break; 

default: error ("i nit_set_th_struct : no such algorithm"); break; 

} 

switch (* * (cmd.param + idx) ) ( 
case 

case *1': p->type = TYPE_I; break; 

case '2' : p->type = TYPE_II; break; 
case '3 # : p->type - TYPE_III; break; 
case '4': p->type » TYPEIV; break; 

default: error ("ini t^set_th_struct : no such type"); break; 

} 

p->nbin = NumberOfBins; 
p->bin * NULL? 
p->calibrate * NULL; 


void create_t h_bi n (set__th) 
set_th_ "setth; 

{ int i;~ 

set_th->bin = (long M ma Hoc (set_th->nbi n * si zeof (long) ) ; 
set_th->cal ibrate = (domain *) malloc (set_th->nbln * si zeof (domai n) ) ? 
for (i =0; i < set_th->nbi n; i++) { 

* (set_th->bin + i) = (long) 0; 

* (set_th->cal ibrate + i) = (domain) 0; 

) 
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float get_f loat_cmd_line_param (def_val, loc, offset) 
float def_val; 
int loc, offset; 

{ float val; 

if (loc >= cmd.nparam) return def_val; 

if {*{* {cmd.param + loc) + offset) == return def_val? 

sscanf {<* (cmd.param + loc) + offset), M %f“, &val); 
return val; 


int get_int_cmd_line_param (def_val, loc, offset) 
int def^val; 
int loc, offset; 

{ int val; 

if (loc >= cmd.nparam) return def_val; 

if {*(* (cmd.param + loc) + offset) *= return def_val; 

sscanf { (* (cmd . param + loc) + offset), "%d H , ivai); 
return val; 


void init_urts_st ruct (p) 
urts_ * p; 

{ 

p->last_prea = (** (cmd. param) == 'y') ? YES : NO; 
p->th =» problem. huge; 


switch 

C < 

[* (cmd.param+1) 

+ 1>) 1 


case 

' 1' 

: p->a_cype 

» 

TYPE I; 

break 

case 

' 2 ' 

: p->a_type 

= 

TYPE^II; 

break 

case 

'3' 

: p->a_type 

= 

TYPE III; 

break 

case 

' 4' 

: p->a_type 

= 

TYPE^IV; 

break 

default : 

p->a_type 

“ 

TYPE I; 

break 


) 

p->g_factor = get_f loat_cmd_line_param (HUGE_FLOAT, 4, 0); 
p->r_factor ** get_f loat_cmd_line_param (HUGE_FLOAT, 5, 0) ; 
p->alg = (** (cmd.param+1) «« 'a') ? UNARY_APPROX : UNARY_TH; 
p->set_th = (set_th_ *) malloc (sizeof (set_th_) ) ; 
init_set_th_struct (p->set_th, 2); 

if (cmd.nparam >= 7) p->set__t h->nbin = atoi ( * (cmd. param+6) ) ; 
create_th_bin (p->set_th) ; 


void init_brt s_st ruct (p) 
brts_ *p; 

( 

p->last_pred = (** (cmd. param) 'y') ? YES : NO; 

p->th = problem. huge; 

switch (* (* (cmd .param+1 ) +1)) ( 

case '1': p->a_type - TYPE_I; break; 

case '2': p->a_type = TYPE_II; break; 

case '3'; p->a_type = TYPE_III; break; 

case '4': p->a_type = TYPE_IV; break; 

default: p->a_type = TYPE_I; break; 

) 

p->g_factor = get_f loat_cmd_llne_param(HUGE_FLOAT, 3, 0); 
p->r_factor = get_f loat_cmd_line_param(HUGE_FLOAT, 4, 0); 
p->set_th * (set_th_ *) malloc (sizeof (set_th_) ) ; 
init_set_th_struct (p->set_th, 1 ) ; 


if (cmd.nparam >= 6) p->set _th->nbin = atoi (* (cmd.param + 5)) 
create_th_bin (p->set_th) ; 


void inlt_hrts_struct (p) 
hrts_ *p; 

( 

p->last_pred *■ (** (cmd.param) »» 'y') ? YES : NO; 

p->th =* problem. huge; 

switch (*(* (cmd.param+1) +1)) ( 

case '1': p->a_type » TYPE_I; break; 

case '2': p->a_type = TYPE_II; break; 

case '3': p->a_type « TYPE__III; break; 

case ' 4 ': p->a_type » TYPE_IV; break; 

default: p->a_type » TYPE_I; break; 

) 

p->g_factor = get_f loat_cmd_line_param(HUGE_FLOAT, 3, 0); 
p->r_factor = get_float_cmd_llne_pararo(HUGE_FLOAT, 4, 0); 
p->set_th = (set_th_ *) mal loc (si zeof (set t h_) ) ; 
init_set_th_struct (p->set_th, 1) ; 

if (cmd.nparam >« 6) p->set_t h->nbi n = atoi (* (cmd.param + 5)) 
create_th_bin (p->set_th) ; 


void init_uird_st ruct (p) 
uird_ * p; 

i 

if ((p->basic. shortcut « (** (cmd.param) -■ ' y ' ) ? YES : NO) » 
p->basi c. margin - get_f loat_cmd_line_param(0.0, 0, 1); 
p->th c problem. huge; 
switch (•(* (cmd.param+1 ) + 1) ) { 

case ' 1 ' : p->a type = TYPE_I; break; 
case '2': p->a_type = TYPE_II; break; 
case '3': p->a_type =* TYPE_III; break; 
case ' 4' : p->a_type * TYPE_IV; break; 
default: p->a_type * TYPE_I; break; 

) 

p->g_factor = get_f loat_cmd_l ine_pa ram (HUGE_FLOAT, 4, 0); 
p->r_factor = get_f loat_cmd_line_param(HUGE_FLOAT, 5, 0); 
p->ba sic. base = get_f loat _cmd_l ine_param (0. 0, 6, 0); 
p->alg *• (** (cmd.param+1) 'a # ) ? UNARY_APPROX : UNARY_TH; 
p->set_th » (set_th_ *) malloc (sizeof (set_th_) ) ; 
init_set_th_struct (p->set_th, 2) ; 

if (cmd.nparam >= 8) p->set_th->nbin = atoi (* (cmd .param + 7)) 
create_th_bin (p->set_th) ; 


void init_bi rd_struct (p) 
bird_ *p; 

( 

if ( (p->basic. short cut = (** (cmd. param) == 'y') ? YES : NO) * 
p->basic. margin =* get_f loat_cmd_l ine_param (0. 0, 0, 1); 
p->th * problem. huge; 
switch (*(* (cmd.param+1) +1)) ( 

case '1': p->a_type * TYPE_I; break; 

case '2': p->a_type « TYPE_II; break; 
case '3': p->a_type = TYPE_III; break; 
case ' 4 ' : p->a_type = TYPE_IV; break; 
default: p->a_type = TYPE_I; break; 

) 

p->g_factor = get_f loat_cmd_l ine_param (HUGE_FLOAT, 3, 0); 


* YES) 


- YES) 
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P~>r_f actor = get_float_cmd_line_param<HUGE_FLOAT, 4, 0) ; 
p->basic.base = get_fl oat_cmd_line_param (0.0, 5, 0); 
p->set_th - (set_th_ *) malloc (sizeof (set_th_) ) ; 
init_set_th_st ruct (p->set th, 1 ); 

if (cmd.nparam >= ?} p->set_th->nbin =» atoi (* {cmd. param + 6)); 
create_th_bin (p->set_th) ; 


void i nit_ida_st ruct (p) 
ida_ *p; 

{ 

p->ida_g_fact = 3; 
p->ida_n * 20; 
p->ida_bin - NULL; 


void init_node_st ruct (p, parentp) 
node_ *p, * parentp; 

{ 

p->parent = parentp; 

p->next » p->brother » NULL; 

p->left - p->right » p->up = NULL; 

p->nsprout » 0; 

p->type « 1; 

p->ndecomp * 0; 

if (parentp) ( (parencp->nsprout ) + f; p->depth = parentp->depth + 1; ) 
else p->depth = 0; 


include/var.h 



lifndef wise var h 


•define wise_var_h^ 


extern 

problem 

problem; 


extern 

cmd 

cmd; 


extern 

io 

io; 


extern 

node_ 

•pool manager, *savep, 

•ROOT; 

extern 

node conf 

node conf; 


extern 

struct tms 

start_time, last_time, 

break_time 

extern 

int 

SIZE; 


extern 

int 

huge Int; 


extern 

long 

huge long; 


extern 

float 

huge float; 


extern 

double 

huge__double; 


extern 

long 

MaxDepth; 


extern 

long 

NumNodesTaken; 


extern 

int 

RTS IRD Iter; 


extern 

domain 

Next IDA Threshold; 


extern 

yesno_ 

No^Upper_Bound; 


extern 

stat 

keep stat [MaxNumberOf Problems ) ; 

lendi f 

wise var 

h 







include /norma 1 . c 


/*• cdf table for the standard normal distribution, 

** each entry differs by 0.05, starting from 0.00 to 3.00, inclusively. 
**/ 



lifdef DEBUG 

lifndef wise_debug__h_ 

I define wise_debug_h_ 

extern char *dbg_task (2 ] ; 
extern char *dbg_datatype [5 ) ; 
extern char *dbg_st rategy (4 ) ; 
extern char *dbg_algori thm[ 10 ] ; 
extern char *dbg_count [ 2] ; 
extern char *dbg_bw_fx(3] ; 

lendif wise_debug_h_ 

lendif DEBUG ~ 


i nc 1 ude/debug . c 


lifdef DEBUG 
lifndef _csp_debug_c_ 

I define _csp_debug_c_ 

char *dbg_t ask [ ] - ( "LEARNING" , “CSP" }; 

char *dbg_datat ype l ) = ( "SHORT", "INT", "LONG", "FLOAT", "DOUBLE" ); 

char *dbg_strat egy [ ) = ( "GBB", "BFS" , "DFS" , "GDFS", "BAND" ); 

char *dbg_algor i t hm [ ] * ( "DEFAULT", "LW", "sTCA", "pTCA", "dTCA", "sTCGD", 

" pTCGD" , "uRTS", "bRTS" , "hRTS" , "uIRD", "bIRD", 

"IRA", "IDA", "DFS_star", "PBFS", "PDFS", "PGDFS", "PGBB" ); 
char *dbg_count [ ] = ( "REAL", "VIRTUAL" }; 
char *dbg_bw_fx[) = { "FIXED_BW", " LINEAR_BW" , “EXP_BW" }; 

lendif _csp_debug_c_ 
lendif DEBUG 
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inciude/conf ig .h 


lifndef wise conflg h 
Idefine wi se_conf ig_h_ 

/* kernel/etc. c */ 

extern int ceilingO, is_any(), is_member{)# is_invalid_gllb () , 

is_compound () , is_algo_rt_pf 0 , gen_random_int () ; 
extern float genera ndom f loat () , gen_random_range () ; 
extern solution_ *get_sol_buf () ; 

extern void error (), set_compound 0 , f ree_sol_buf () , set_random_radix () , 

set_search_task () , debug_node(), set_node_si ze 0 , junk{); 

/* kernel/f ree. c */ 

extern void f ree_envi ron (> , f ree_alg_struct <) , free_open(), free_list{) # 
free_btree () , free_stack () , free_node(); 
extern long free_bptree (); 

/* kernel/init . c */ 

extern node_ *create_root ( ) ; 

extern void clear_f i les () , at tach_a lg_st ruct (> , i ni t_alg_st ruct () , 

exami ne_root { ) ; 

extern search_ *ini t_environ () ; 

/* kernel/1 imit .c */ 

extern int is_constr_violated () ; 

extern float calc_rt_approx () , get_rt_approx () , get_approx {) ; 

extern domain expected_opt () , get_t hreshold {) ; 
extern yesno_ is_threshold_related (} ; 

extern void eva l_rt_approx ( ) , put_achieved_approx 0 , eval_f inal_approx ( ) , 

put_t hreshold {) , merge_threshold_to_parent () , 
put_chi ld_constr () , set_stop_constr () ; 

s 

/* kernel/para. c */ 

extern yesno_ para_terminat ion () ; 

extern void para_merge_solution (), para_merge_stat (),. para_load_balancing 

extern node_ *para_request {); 

/* kernel/profile. c */ 

extern int is_in_transient_phase () ; 

extern void pf_run_t ime {) , pf_space_vs_t ime {) , alg_rt_pf{) # alg_pf()» 

alg_pf_predict () ; 

/* kernel/search. c */ 

extern int is__bounded { ) , is_hard_bounded () ; 

extern search^ *create_brother_search ( ) , *create_chi ld_search () ; 
extern void search Or alg_entry(), default_search () , dominating () , 
bounding (), btree_bounding () , 1 ist_bounding () , 
bptree_boundlng () , set_search_message () ; 

/* kernel/stat . c */ 

extern long get_time(), get_space(), get_max__space ( ) , get_pruned () , 

get_of f set_time () , get_of fset_space () , get_of fset_max_space () , 
get_of f set_gen () ; 

extern float get_cst () , get_of fset__rt_approx (> , get_of fset_cst () ; 
extern void update_stat {) , merge_stat_to_parent () , merge_approx_to_parent () , 

merge_sol_to_parent () , inherit_sol_f rom_parent () ; 

/* include/var . c */ 

extern float get_f loat_cmd_l ine_param (} ; 

extern void init_env__struct () , init_problem_struct 0 , init_cmd_st ruct () , 
init_factor_struct () , init_io_struct () , init_stat_struct () , 
init_constr_struct () , init_prof i le_struct () , 


init_band_struct {), init_t ree_st ruct { ) , 
init_approx_struct 0 , init_search_struct () , 

init_regress_struct () , init_stca_struct () , init_ptca_st ruct () , 
init_dtca_struct () , inlt_stcgd_struct () , init_ptcgd_struct 0 , 
init_dtcgd_struct 0 , init_ida_struct () , init_node_struct () , 
init_set_th struct {) , create_th_bin () , init_urts_struct () , 
init_brts_struct () , i nit_hrts_struct { ) ; 

/* primitve/bfs . c */ 

extern search_ending_ bf s_primit ive () ; 

/* primitve/gbb. c */ 

extern search_ending_ gbb_primit ive {) ; 

/* primit ive/dfs. c */ 

extern search _ending_ dfs_primit ive () ; 

/* primit ive/gdfs.c */ 

extern search_ending_ gdfs_primit ive () ; 

/* primit ive/path.c * / 

extern search_ending_ path_pr imit ive {) ; 

/* primitive/first .c */ 

extern searchendi ng_ f irst_primit i ve () ; 

/* algorithm/default . c */ • 

extern void defaul t_a lgorit hm () ; 

/* algorithm/lw.c •/ 
extern yesno_ is_lw_end(); 

extern void lawler_wood_a lgorit hm () , 1 w_set_const r ( ) ; 

/* algorithm/para.c */ 

extern void para_algor i thm 0 ; 

extern yesno_ paraprimit ive () ; 

/* algorithm/tca . c */ 

extern float get_stca_next_approx () ; 

extern void stca_a lgorithm O , ptca_al gorithm ( ) , dtca__algorithm <) , 

dtca_entry () ; 

/* algorithm/tcgd.c */ 

extern float get_stcgd_next_approx {) ; 

extern void stcgd_a lgorithm () , ptcgd_algorithm 0 ; 

/* algorithm/rt s. c */ 

extern void urts_algorithm() , urts_entry{), 

brt s_algorithm ( ) , brt s_entry ( ) , 
hrts_algori thm ( ) , hrts_entryO»* 

/* algorithm/ i rd. c */ 

extern void uird_algorithm {) , uird_entry () , 

bi rd_algori thm 0 < bird_entry () ; 

/** open/bandlist . c **/ 

extern node_ *get_band_node () , *young_delete {) ; 
extern void put_band_node (), young_insert () ; 

extern int is__young_empty () ; 

/* open/bpt ree. c */ 
extern int i s_bptree_empty () ; 

extern node_ *bptree_delete () ; 

extern void bpt ree_insert {) ; 
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/* open/btree.c 
extern int 
extern node_ 
extern void 

/* open/list.c 
extern int 
extern node_ 
extern void 


*/ 

is_btree_empty () ; 
*btree_delete () ; 
btree_insert () ; 

* / 

i s_l i s t_empt y ( ) ; 
*list_delete () ; 

1 ist_insert () ; 


/* open/pool.c */ 

extern node_ * get_search_node_f rom_pool {) ; 

extern void dispose_search_node_to_pool () ; 


/* open/sort. c 
extern int 
extern node_ 
extern domain 
extern void 


*/ 

is_open_empty () ; 
‘delete () ; 
sort__key () ; 
insert { ) ; 


/* open/stack. c */ 

extern int i s_ stack_empty {) ; 

extern node_ * stack_top {) , * st ack^bottom {) ; 

extern void stack_push (} , stack_pop(); 

/• interface/command . c •/ 
extern void cmd__l ine ( ) ; 

/* interface/output .c */ 

extern void f lush_account ing () , l lush_summary () , flush_graph() 
/* interface/resulc .c •/ 

extern void keep_result () , print^result 0 ; 

lendif wi se_conf ig_h_ 
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Thu Jan 30 15:19:21 CST 1992 


i nter face/ command. c 


l* begin, shorthand */ 

Idefine is_not_default {* (argv [ index) ) != 

Idefine inc_index (abort_cond) if (++index >= argc) { \ 

if (abort_cond) error (errmsg) ; \ 
else break; \ 

) \ 

if {* (argv[index) ) — \ 

if (abort_cond) error (errmsg) ; \ 
else continue; 

/* end, shorthand */ 


void cmd_line (argc, argv) 
int argc; 
char *argv[); 

{ int index « 1, is_jprob_spec - 0, i; 

enum_type_ tl - TYPE_N(JLL, t2 * TYPE_NULL; 
float f_val ; 

char ‘errmsg » "not sufficient argument s\n"; 
lifdef DEBUG 
if (cmd. debug >•= 1) { 

print f ("enter crnd_iine processor\n" ) ; 

for (index » 0; index < argc; index+ + ) printf("%s ", argv[ index) ) ; 
print f ("\n") ; 
index = 1; 

) 

lend! f 

if (argc <= 1) error (errmsg) ; 

while (index < argc) ( 

if (streql (argv(i ndex ) , " : real ") ) ( 
cmd. count = REAL; 
inc_index (0) ; 

) /* :real */ 

else if (streql (argv[ index] , " rvirtual") ) ( 
cmd. count » VIRTUAL; 
inc_index (0) ; 

} /* :virtual */ 

else if (streql (argv[ index) :task") ) ( 
inc_index (1 ) ; 

if (streql (argv [index) , "csp") ) problem. task = CSP; 

else if (streql (argv(index) , "learn") ) problem. task = LEARNING; 

else error ("no such search task\n") ; 

inc_i ndex (0) ; 

) 

else if (st reql (argv [ index] , " : report" ) ) { 
cmd. report = 1; 
inc_index (0) ; 

if (is_not_de fault) io. report = argv[index); 
inc_index (0) ; 

) /* :report */ 

else if (streql (argv[ index) , M : search") ) \ 
inc_index (1 ) ; 

if (streql (argv [index) , "bfs") ) cmd. strategy » BFS; 


else if (streql (argv [ index] , "dfs" ) ) cmd. strategy » DFS; 
else if (streql (argv [ index] , "gdfs") ) cmd. strategy “ GDFS; 
else if (streql (argv [ index] ,**gbb") ) cmd. strategy - GBB; 
else if (streql (argv ( index] , "band") ) cmd. strategy = BAND; 
else error ("no such search strategy\n") ; 
inc index (0) ; 

/* TCA (approx) */ 

if (streql (argv [index J , "stca") ) cmd. algorithm « sTCA; 
else if (streql (argv[ index] , "ptca") ) cmd. algorithm = pTCA; 
else if (streql (argvf index] , "dtca") ) cmd. algorithm * dTCA; 

/* TCA(accu) V 

if (streql (argv [ i ndex ] , "sTCA") ) 

( cmd. algorithm = sTCA; cmd.xon = YES; ) 
else if (streql (argv [ index] , "pTCA") ) 

( cmd .algorithm » pTCA; cmd.xon = YES; } 
else if (streql (argv [ index) , "dTCA") ) 

{ cmd. algorithm = dTCA; cmd.xon = YES; } 

/* TCGD (approx) */ 

else if (streql (argv[ index) , "stcgd") ) cmd. algorithm » sTCGD; 
else If (streql (argv [ index] , “ptcgd") ) cmd. algorithm « pTCGD; 

/* TCGD(accu) */ 

else if (st reql (argv [ index] , "sTCGD" ) ) 

[ cmd. algorithm = sTCGD; cmd.xon ** YES; } 
else if (streql (argv [ index] , "pTCGD" ) ) 

( cmd .algori t hm = pTCGD; cmd.xon * YES; } 

/* uRTS (approx) */ 

else if (st reql (argv f index] , "urts") ) cmd. algorithm =■ uRTS; 

/* URTS (accu) */ 

else if (streql (argv[ index] , "uRTS") ) 

( cmd. algorithm * uRTS; cmd.xon = YES; ] 

/* bRTS (approx) •/ 

else if (streql (argv [ index] , "brts") ) cmd. algorithm * bRTS; 

/* bRTS(accu) '/ 

else if (streql (argv [ index] , "bRTS") ) 

{ cmd. algorithm = bRTS; cmd.xon * YES; ) 

/* hRTS (approx) */ 

else if (streql (argvf index] , "hrts “) ) cmd. algorithm » hRTS; 

/* hRTS(accu) */ 

else if (streql (argv [ index] , "hRTS") ) 

1 cmd. algorithm - hRTS; cmd.xon = YES; ) 

/* uIRD (approx) */ 

else if (streql (argv [ index ], “uird") ) cmd. algorithm ■ uIRD; 
/* uIRD(accu) */ 

else if (streql (argv [ index] , "uIRD" ) ) 

{ cmd. algori thm = uIRD; cmd.xon = YES; j 

/* bIRD (approx) */ 

else if (streql (argv [ index] , "bird" ) ) cmd .algorithm = bIRD; 
/* bIRD (accu) */ 

else if (streql (argv [ i ndex ], "bIRD" ) ) 

( cmd .algorithm = bIRD; cmd.xon = YES; ) 
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/* LW (approx) */ 

else if (streql (argv ( index) , " lw") ) cmd. algori thm « LW; 

/* LW(accu) */ 

else if (streql (argv(index) , "LW") ) 

( cmd. algorithm = LW; cmd.xon - YES; ) 

/* IRA* (approx) */ 

else if (streql (argv ( index] ," i ra" ) ) cmd .algorithm * IRA; 

/* IRA* (accu) */ 

else if (streql (argv (index) , “IRA") ) 

{ cmd .algorithm - IRA; cmd.xon « YES; ) 

/* IDA* (approx) */ 

else if (streql (argv ( index) # "Ida") ) cmd. algori thm « IDA; 

/* IDA* (accu) */ 

else if (streql (argv (index) , "IDA") ) 

1 cmd .algorithm = IDA; cmd.xon = YES; ) 

/* DFS* (approx) */ 

else if (streql (argv ( index) , "dfs") ) cmd. a Lgorithm * DFS_star; 
/ * DFS* (accu) •/ 

else if (streql (argv ( i ndex) , "DFS") ) 

! cmd. algorithm » DFS_star; cmd.xon » YES; i 

/* PBFS (approx) */ 

else If (streql (argv ( 1 ndex ), "pbf s" ) ) cmd .algorithm - PBFS; 

/* PBAND (approx) •/ 

else if (streql (argv ( index ), "pband") ) cmd. algorithm = PBAND; 
/* PBFS (accu) */ 

else if (streql (argv [ index ), "PBFS" ) ) 

{ cmd. algorithm = PBFS; cmd.xon = YES; ) 

/• PBAND (accu) •/ 

else if (streql (argv [ index ), "PBAND") ) 

( cmd. algorithm * PBAND; cmd.xon =* YES; ) 

/* PDFS (approx) */ 

else if (streql (argv [ i ndex ), "pdfs" ) ) cmd .a lgori t hm = PDFS; 

/* PDFS (accu) */ 

else if (streql (argv [ index ), "PDFS" ) ) 

| cmd . a lgorithm - PDFS; cmd.xon « YES; } 

/* PGDFS (approx) */ 

else if (streql (argv [ index) , "pgdfs") ) cmd. algorithm = PGDFS; 
/* PGDFS (accu) */ 

else if (streql (argv (index) , "PGDFS") ) 

{ cmd .algorithm « PGDFS; cmd.xon « YES; ) 

/* PGBB (approx) */ 

else if (streql (argv (index) , "pgbb") ) cmd .algorithm = PGBB; 

/* PGBB (accu) */ 

else if (streql (argv [ index) , "PGBB" ) ) 

( cmd .algorithm = PGBB; cmd.xon - YES; } 


/* DEFAULT (approx) */ 

else if (streql (argv (index) , "def") ) cmd. algori thm » DEFAULT; 
else if (streql (argv { index) , "default ") ) cmd. algorithm « DEFAULT 

/* DEFAULT (accu) */ 

else if (streql (argv [ index] , "DEF") ) 

( cmd. a lgorithm = DEFAULT; cmd.xon = YES; ) 
else if (streql (argv [ index] , "DEFAULT") ) 

) cmd .a Igor it hm c DEFAULT; cmd.xon - YES; ) 

else error("no such search algorlthm\n") ; 
inc_index (0) ; 

) /* : search */ 

else if (streql (argv ( index) , " :prob“) ) ) 
inc^index (1 ) ; 

cmd. Iter * atoi (argv [ index J) ; 
inc_i ndex (1 ) ; 

problem. size - SIZE « atoi (argv ( index) ) ; 
inc_i ndex (1 ) 

if (problem. size > MaxProblemSi ze) ) 

print f ("MaxProblemSize^%d, problem, si ze=%d\n", 

MaxProblemSize, problem. si ze) ; 
error ("problem size too large\n"); 

i 

problem. seed - atoi (argv ( i ndex) ) ; 
is_prob_spec •» 1; 
i nc_i ndex (0) ; 

) /* :prob */ 

else if (streql (argv) index) io") ) i 
i nc_i ndex (1 ) ; 

if (is_not_defaul t) io.stat =» argv(index); 
i nc_i ndex (0) ; 

if (is_not_defaul t) io. summary = argv ( i ndex ) ; 
i nc_i ndex (0) ; 

if (i s_not_de fault ) io. graph * argv ( i ndex | ; ' 
inc_i ndex (0) ; 

if (is_not_default ) io.rt_pf = argv(index); 
i nc_i ndex (0) ; 

if (is_not_defaul t ) io.st_pf = argv(indexl; 
inc_index (0) ; 

) /• :io */ 

else if (streql (argv [ index} :approx") ) I 
i nc_i ndex (1 ) ; 

if (is_not_de fault) sscanf (argv ( index ) , "%f", & (cmd .approx) ) ; 
inc lndex (0) ; 

) /* :approx */ 

else if (streql (argv ( index] :accu" ) ) ) 
inc index (1) ; 

if (is_not_defaul t ) sscanf (argv [ i ndex ] , "%f", & (cmd .accu) ) ; 
inc_index (0) ; 

} /* :accu */ 

else it (streql (argv ( i ndex) ;dbg") ) ( 

inc_i ndex (1 ) ; 

if (is_not_de fault) cmd. debug * atoi (argv ( i ndex )) ; 
inc_index (0) ; 

) /* :dbg */ 

else if (streql (argv [ index )," : const r") ) i 
inc_index (1 ) ; 
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if (is_not_de fault) cmd . const r.t ime - atoi (argv { index] ) ; 
inc_index (0) ; 

if (is_not_default } cmd. const r .space = atoi (argv [i ndex] ) ; 
inc__index (0) ; 
if (is_not_default ) 1 

sscanf (argv ( index ) , "if", &f_val); 
cmd. constr . cst = f_val; 

) 

inc__index (0) ; 
if (is_not_default ) { 

sscanf (argv [index] , "%f", £f_val); 
cmd. constr .bound = (domain) f_val; 

} 

inc_index (0) ; 
if (is__not__default) { 

if (* (argv [ index) ) «*= * r' || * (argv ( index ) ) == 'R') { 
cmd.bound_metric » RELATIVE; 

if (isdigit {* (argv ( i ndex 1 +1 ) ) I I ispunct (* (argv [ index] +1) ) ) { 
sscanf (argv [ index) +1 , "%f", £f_val); 
cmd.bound_base = (domain) f_val; 

) 

) 

1 

inc_index (0 ) ; 

) /* iconstr */ 

else if (streql (argv[ index) , ":pf") ) { /- profile */ 

inc_index (1 ) ; 
if (is_not_default) ( 
cmd.pf.rc - YES; 

sscanf (argv (index ) , "%f", & (cmd. pf. step) ) ; 

) 

inc_i ndex (0) ; 

if (is_not_de£ault) cmd.pf.st -* YES; 
inc_i ndex (0) ; 

) /- :pf */ 

else if (streql (argv [ i ndex ) , " :pe M ) ) I /* num of pe' s V 

inc_index (1 ) ; 
if (is_not_de fault) 

cmd.num_pe = atoi (argv [ index ]) ; 
inc_index (0) ; 

} /* :pe */ 

else if (streql (argv [ index ),": comm_idle") ) | /* comm overhead */ 

lnc_index (1 ) ; 
if (is_not_defaul t ) 

cmd. comm_idle = atoi (argv [ index] ) ; 
inc_index (0) ; 

} /* :comm_idle */ 

else if (streql (argv [index) , first M ) ) ( /* starting search V 

inc_index (1) ; 
if (is_not_default ) 

cmd. first = atoi (argv [ index) ) ; 
inc_index (0) ; 

) /* : first */ 

else if (streql (argv (index) , "rparam") ) ( /* algorithm parameters */ 

inc_index (1) ; 
if (is_not_default) ( 

cmd.nparam = atoi (argv ( index )) ; 

cmd.param = (char **) malloc (cmd. nparam * sizeof(char *)); 


for (i » 0; i < cmd.nparam; i++) ( 
inc_index (1) ; 

* (cmd.param f i) *= argv (index); 

) 

inc_index (0) ; 

) /* :param */ 

else error (“no such option in cmd line\n"); 

} /* while loop */ 

if (cmd. a ecu !=* 1.0) cmd. approx = accu2approx (cmd.accu); 

« ifdef DEBUG 
if (cmd. debug >= 1) ) 

print f ("summary of command and search info:\n"); 

print f (“count ing system*=%s\n", dbg_count [toint (cmd. count ))) ; 

print f ("task is %s\n", dbg_task [toint (problem. task) 1 ) ; 

print f ("search st rategy=%s\n" , dbgstrategy [toint (cmd. strategy) }) ; 

print f ("search algorithm=%s\n", dbg_algorithm (toint (cmd. algorithm) ) ) ; 

print f ("nsamples~%d\n", cmd. iter) ; 

print f (“problem size~%d\n", problem. size) ; 

print f ("random seed=%d\n", problem. seed) ; 

printf ("stat file=%s\n", lo.stat); 

print f ("summary f i le‘=%s\n", io. summary); 

print f ("graph-ready file=%s\n" / io. graph); 

print f ("run-time file=%s\n", io.rt_pf); 

print f ("space-vs-t ime file=%s\n", io.st_pf); 

print f ("report file=%s\n", io. report) ; 

print f ("approx=%g\n", cmd. approx) ; 

print f ("accu=%g\n", cmd.accu) ; 

print f ("debugging mode=%d\n", cmd.debug); 

printf ("time const r=“); 

if (cmd. constr. time huge_long) printf ("uni imited\n") ; 
else print f (“%d\n", cmd.constr. time) ; 
pri nt f (“space const r=") ; 

if (cmd. constr. space == huge_long) print f ("unlimi ted\n") ; 
else print f ("%d\n", cmd. constr. space) ; 
printf ("cst const r~") ; 

if (cmd. constr. cst huge_float) pri nt f ("uni imitedXn") ; 
else print f ("%g\n", cmd. constr. cst) ; 

printf ("profi le run-t ime=%s\n", (cmd.pf.rt == YES) ? "YES" ; "NO"); 
if (cmd.pf.rt == YES) print f ("profiling step=%f\n" / cmd.pf . step) ; 
print f ("prof i le space-vs-t ime~%s\n" , (cmd.pf.st == YES) ? "YES" : "NO" 

1 

lend! f 

if (! is_prob_spec) error ("problem is not speci f ied\n") ; 

/* specify some special parameters for Chu */ 
switch (cmd. algorithm) [ 

case sTCA: /* rparam 1 g »/ 

case sTCGD: /* :param 1 g */ 

sscanf (* (cmd. param) , "%f", & (cmd. factor .g) ) ; break; 
case pTCA: /* :param 2 s c */ 

case dTCA: /* :param 2 s c */ 

case pTCGD: /* rparam 2 s c */ 

sscanf (* (cmd.param) , "%f", & (cmd. factor. s) ) ; 
sscanf (* (cmd. param+1) , “%f", & (cmd. factor. c) ) ; break; 
default; break; 

} 

8 ifdef DEBUG 
if (cmd.debug >= 1) ( 

print f (“g_factor=%g\n", cmd . factor. g) ? 


) 
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printf ("s_factor=lg\n", cmd. factor. s) ; 
printf ("c_factor=lg\n", cmd. factor. c) ; 
printf ("num_parameters“ld\n“, cmd. nparam) ; 

for (i » 0; i < cmd. nparam; i + + ) print f (“param [ Id] =ls\n", 1, * (cmd.param+i) ) ; 
printf ("exit cmd_line processor\n") ; 

) 

•endif 

) 


inter face /out put . c 


void flush (sp) 
search_ *sp; 

I 

•ifdef OUT_GRAPH 
flush_graph (sp) ; 
f endi f 

« ifdef OUT_SUMMARY 
flush_summary (sp) ; 
•endif 
) 


void flush_summary (sp) 
search_ *sp; 

( FILE * f p; 


fclose(fp) ; 

1 


void flush_graph (sp) 
search_ *sp; 

( FILE * fp; 

fp - fopen (lo .graph, "a" ) ; 

if (OUT_TIME_LIMIT) fprlntf(fp, “Id ", sp->constr.time) ; 
if (OUT_SPACE_LIMIT) fprlntf(fp, “%g ", sp->constr. space) ; 

if (OUT_CST_LIMIT) fprintf(fp, “%g “, sp->constr.cst) ; 

if (OUT_REAL_TIME) fprintf(fp, "Id ", sp->stat .time) ; 
if (OUT_REAL_MAX_SPACE) fprintf(fp, "»g ", 

((float) ( node_con f . node_s ire ■ sp->stat ,max_act ive) ) ) 
if (OUT_REAL_CST) fprintflfp, “%g ", sp->stat . r_cst) ; 

if (OUT_VIRTUAL_TIME) 

•ifdef TIME_IS_GEN 

if (cmd.numpe < = 1) fprintf(fp, "Id ", sp->stat .generated) ; 

• else 

if (cmd.num_pe <= 1) fprintflfp, "Id ", sp->stat .expanded) ; 

•endi f 

else fprintf(fp, "Id ", sp->stat ,num_op) ; 
if (OUT_VIRTUAL_MAX_SPACE) fprintf(fp, "Id ", sp->stat ,max_act ive) ; 
if (OUTJ/IRTUAL_CST) tprintf(fp, "lg ", sp->st at . v_cst ) ; 


fp = fopen (io. summary, "w"); 

fprintflfp, "counting system=ls\n", (cmd. count ■» REAL) ? “real" : "virtual"); 

if (sp->constr.time hugo_lor.g) fprintflfp, "time uni imited\n") ; 
else fprintflfp, "time limit = ld\n", sp->const r. t ime) ; 

if (sp->constr. space huge_long) fprintflfp, “space uni imlted\n") ; 
else fprintflfp, “space Umit=ld\n“, sp->constr. space) ; 

if (sp->constr.cst — huge_float) fprintflfp, "cst unlimitedXn") ; 
else fprintflfp, "cst limit-lg\n“, sp->constr.cst) ; 


fprintf (fp, "real time=ld\n", sp->stat . t ime) ; 
fprintf(fp, "real max space-lg\n", 

((float) (node_conf . node_si ze * sp->stat ,max_act i ve) ) ) ; 
fprintflfp, "real cst=lg\n", sp->stat ,r_cst) ; 


•ifdef TIME_IS_GEN 
fprintflfp, “virtual 
• else 

fprintflfp, "virtual 
•endi f 

fprintflfp, "virtual 
fprintflfp, "virtual 


time=ld\n", sp->stat. generated); 

time=ld\n", sp->stat .expanded) ; 

max space=ld\n", sp->stat .maxactive) ; 
cst»%g\n", sp->stat.v_cst) ; 


fprintflfp, "root approx*lg\n", sp->approx. root_approx) ; 
fprintf(fp, "run-time approx*lg\n", sp->approx.run_time) ; 


if ( (sp->approx. approx > 0.0) || (sp->approx. run_time > 0.0)) 

fprintf (fp, "semi-") ; 

fprintflfp, "optimal solution value-lg\n", tofloat (sp->glub) ) ; 


if (OUT_ROOT_AP PROX ) fprintflfp, "lg ", sp->approx.root_approx) ; 
if (OUT_RUN_TIME_APPROX) fprintflfp, "lg ", sp->approx. run_time) ; 
if (OUT_APPRCX) fprintflfp, "lg ", sp->approx. achieved) ; 
if (OUT_INCUMBENT) fprintflfp, “lg ”, tofloat (sp->glub) ) ; 
if (OUT_LOWB) fprintflfp, "lg ", tofloat (sp->gllb) ) ; 

If (OUTJl'HRESHOLD) fprintflfp, "lg ", tofloat (sp->constr. bound) ) ; 

switch (sp->algorithm) I 
case sTCA: 

if (OUT_GRADIENT_FACTOR) fprintflfp, "lg ", sp->a lg . st ca->g_fa ct or) ; 
break; 
case sTCGD: 

if (OUT_GRADIENT_FACTOR) fprintflfp, "lg ", sp->alg. stcgd->g_f actor) ; 
break; 
case pTCA: 

if (OUT_STOPPING_FACTOR) fprintf (fp, "%g ", sp->alg . pt ca->s_fact or ) ; 

if (OUT_CORRECTIVE_FACTOR) fprintf (fp, "%g ", sp->a ig . pt ca->c_fact or ) ; 

break; 
case dTCA: 

if (OUT_STOPPING_FACTOR) fprintf (fp, "%g ", sp->alg . dt ca->s_fact or ) ; 

if (OUT_CORRECTIVE_FACTOR) fprintf (fp, "%g ", sp->alg. dt ca->c_factor) ; 

break; 
case pTCGD: 

if (OUT_STOPPING_FACTOR) fprintf (fp, “%g ", sp->alg . ptcgd->s_f actor) ; 

if (OUT_CORRECTIVE_FACTOR) fprintf (fp, "%g ", sp->alg . ptcgd->c_f actor) 

break; 

default: break; 

) 

fprintf (fp, "\n") ; fclose(fp); 


fprintflfp, "cmd-line (or adapted) approx=%g\n" , sp->approx. approx) ; 
fprintf (fp, "achieved approx=%g\n", sp->approx . achieved) ; 
fprintflfp, "run-time approx=%g\n", sp->approx. run_t ime) ; 


interface/result . c 
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void keep_result (iter, sp) 
int iter; 
search^ *sp; 

{ keep_stat { iter ) * sp->stat; } 


void print_result (iter) 
int iter; 

1 int i; 

long gen = 0, expnd = 0; 

float cst = 0.0, fiter = tofloat (iter) ; 

FILE * fp; 

for (i - 1 ; i <= iter; i++) l 
gen += keep_stat [ i ). generated; 
expnd f* keep_stat 1 1 ] .expanded; 
cst +“ keep_stat { i ) . v_cst ; 

} 

fp » fopen ( io . stat , ”w”)? 
fprintf(fp, *•{"); 

fprintf(fp, " (%f %f %f) ((float) gen) / fiter, 

((float) expnd) / fiter, 
cst / fiter); 

for (i » 1; i <* iter; i*f) 

fprincf(fp, " (%d %d %g) ", keep_stat ( i 1 . generated, 

keep stat ( i ] .expanded, 
keep_stat 1 1 J . v_cst ) ; 

fprintf(fp, ")\n"); 
fclose ( fp) ; 


1 
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algorithm/default .c 


void default__algorithm (sp) 
search_ *sp; 

{ search__message_ msg; 

set_search_message (&msg, FRESH_START, NULL, NO, cmd.pf.rt, cmd.pf.st); 
sp->approx. achieved = sp->approx. root_approx; 


switch 

(sp->strategy) ( 



case 

GBB: 

gbb_primit ive (sp, 

NULL, 6msg); 

break 

case 

BFS: 

bf s_primit ive (sp. 

NULL, £msg) ; 

break 

case 

DFS: 

df s_primit ive (sp, 

NULL, £msg); 

break 

case 

GDFS 

gdfs_primitive (sp 

NULL, &msg) ; 

break 

case 

BAND 

band_primitive (sp, NULL, imsg) ; 

break 

default : 

error ("search: no 

such strategy\n") ; 

break 


} 


eval f inal_approx (sp) ; 

1 


algorithm/ida . c 


/*+ — — — — — — — + 

+ IDA* Search Algorithms + 

+ + */ 


Sdefine PRINT_ITER_PROFILE printf \ 

<"iter=%d, approx**%g, accu=%g, exp_opt (glub=%g) =%g, t hreshold=%g, time=%d\n", \ 
iter, chi ld_sp->approx. approx, approx2accu (chi ld_sp->approx. approx) , \ 

(float) child_sp->glub, (float) expectedopt (child_sp) , \ 

(float) child_sp->constr. bound, get_t ime (chiid_sp) ) ; 

void set_ida_device (); 


void ida_algorithm (sp) 
search_ *sp; 

{ search_ *chlld_sp; 
search_message_ msg; 

search_ending_ term_signal; /** not important, only as a placeholder **/ 
int iter = 0; 

sp->approx. achieved = sp->approx. root approx; 
sp->gllb = sp->root_lb; 
sp->glub - sp->root_ub; 

set_search_message (fimsg, FRESH_START, NULL, YES, cmd.pf.rt, cmd.pf.st); 
child^sp = create_child_search (sp) ; 

while (++iter) { 

set_ida_device (child_sp, iter); 

put__chi ld_const r (child_sp, sp, 1.0, 1.0, 1.0); 

idpd_init () ; 

msg. feasible «■ NO; 

switch (sp->strategy) ( 

case DFS: term_signal = dfs_primitive (child_sp, sp, &msg) ; break; 

case GDFS : term_signal = gdfs_primitive (child_sp, sp, smsg); break; 
case BAND: term_signal = band_primitive (child_sp, sp, smsg); break; 
default: error ("ida_algorithm: no such feasible primitive"); break; 


evalfinalapprox (chiidsp); 
lifdef DEBUG 

if (cmd. debug >= 1) | PRINT_ITER_PROFILE ) 

•endif 

merge_stat_to_parent (child_sp, sp) ; 
merge_sol_to_parent (child_sp, sp) ; 
if (get approx (chiidsp) <= sp->approx. achieved) 
merge_approx_to_parent (chiidsp, sp) ; 
merge_threshold_to_parent (child_sp, sp) ; 

if (msg. feasible == YES II get_time (sp) >= sp->const r . t ime) break; 
(sp->child « chiidsp - create_brother_search (chi ld_sp) ) ->pa rent - sp; 

) 

) 

void set_ida_device (sp. Iter) 
search_ *sp; 
int iter; 

{ 

if (iter == 1) sp->constr. bound « ROOT->lowb+l; 
else 

if (sp->algorlthm == DFS_star) sp->constr .bound *» 2; 
else ( 

sp->constr .bound = sp->brother->constr. bound + 1; 
if (sp->constr. bound < Next_IDA_Threshold) 
sp->constr. bound * Next_IDA_Threshold; 

) 

Next_IDA_Threshold - problem. huge; 

\ 


algorithm/ira ,c 


/* IRA* */ * 

void ira_algorithm (sp) 
search_ *sp; 

[ search_ *child_sp; 
search_message_ msg; 
search_ending_ term_signal; 
int iter; 
float a [4); 

a (0 ] = 0.2; a[l) = 0.1; a { 2 ) = 0.05; a(3| = 0.0; 

sp->approx. achieved =■ sp->approx.root_approx; 
sp->gllb = sp->root_Lb; 
sp->glub - sp->root_ub; 

set search message (&msg, FRESH_START, NULL, YES, cmd.pf.rt, cmd.pf.st); 
child_sp =” create_chi ld__search (sp) ; 
for (iter - 0; iter < 4; iter++) ( 

inherlt_sol_f rom parent (child_sp, sp) ; 
chi ld_sp->approx. approx = a (iter); 
idpdinit (); 

term_signal - (sp->strategy == DFS) ? dfs_primitive (child_sp, sp, &msg) 

gdf s_primit ive (chi ld__sp, sp, &msg) 

evalfinalapprox (chiidsp) ; 



ISE' algorithm, CRHC-92-1 


lifdef DEBUG 
If (crod. debug >= 1) 

prlntf ("iter=%d, approx (glub=%g) =%g, threshold=»g, tlme=%d\n“, 

iter, (float) chlld_sp->glub / (float) expected_opt (chi Id sp) , 
(float) child_sp->alg.urts->th, get_tlrae (chlldsp) ) ; ~ 

lendlf 

merge_stat_to_parent (chlld_sp, sp) ; 
merge_sol_to_parent (chlld_sp, sp) ; 

If (get_approx (child_sp) <** sp->approx. achieved) ( 
merge_approx__to_parent (child_sp, sp); 

) 

(sp->child = chlld_sp ■= create_brother_search (chi ld sp) ) ->parent = sp; 
I 

) 


algorithm/ird.c 


/*+ 




+ 

IRD 

* Search Algorithms 

+ 

+ 

algorithms: 


+ 

+ 

. unary IRD* 

(uIRD* ) : u (a ) & ulth] 



using only 

one pruning device. 


+ 

. binary IRD* 

(bIRD*) : 

+ 

+ 

using both 

pruning devices. 

+ 

+*/ 


void set_ulrd_devlce (), set_ulrd_approx () , set_ulrd_threshold (); 

void set_blrd_device (), set_blrd_approx (), setbirdthreshold (); 

void ird_set_typeI_approx (), ird_set_typeII_approx (); 

void lrd_set_regress_approx (), ird_set_last_approx (); 

void lrd_set_ird_threshold (), lrd__set_nalve_threshold () ; 

void lrd_set_stat lc_threshold (), Trd_set_typeI_static_threshold () ; 

void lrd_set_typeII_statlc_threshold (), lrd_set_predlctlve_threshold (); 

void lrd_set_typeI_predlctlve_threshold (); 

void ird_set_typeII_predlctive_threshold () ; 

void reset_th_environ (), set_th_entry (); 

float get_g_factor (), get_r_factor () ; 
domain lrd_get_predlcted_glub (); 

yesno_ check_span (), get_bin_vs_tlme (), get_th_vs_tlme () ; 

yesno get_glub_vs_tlme (), get_approx_vs_time () , get_glub_vs_approx (); 

yesno__ get_accu_vs_t lme (); 

iter_attr_ get_iterat ion_attribute () ; 

set th_ *get_set_th (>; 


/* uIRD' */ 

void ulrd_algorlthm (sp) 
search_ *sp; 

( search_ *child_sp; 
search_message_ msg; 
search_endlng_ term_slgnal; 
yesno_ break_signal = NO; 

Int Iter; 

sp->approx. achieved = sp->approx. root_approx; 
sp->gllb = sp->root_lb; 
sp->glub = sp->root_ub; 

set_search_message (4msg, FRESH_START, NULL, YES, cmd.pf.rt, cmd.pf.st); 

child_sp = create_chlld_search (sp) ; 

break_signal = NO; 

for (iter = 1; 1; iter++) ( 


RTS_IRD_lter * iter; 
lifndef N0_INHER1T 

inherlt_sol_f rom_parent (child_sp, sp) ; 
lendlf 

put_chl ld_constr (chlldsp, sp, 1.0, 1.0, 1.0); 
set_ulrd_device (chlld sp. Iter) ; 
idpdlnlt () ; 

terra_signal = (sp->strategy == DFS) ? dfs_prlmltlve (chlld_sp, sp, 4msg) : 

gdfs_prlmltive(child_sp, sp, smsg); 

eval_flnal_approx (child_sp) ; 
lifdef DEBUG 
if (cmd. debug >«• 1) 

print f (“lter=%d, approx (glub-%g) =%g, threshold=ig, time“%d\n“, 

Iter, (float) chi ld_sp->glub, (float) expectedopt (child_sp) , 

(float) chi ld_sp->alg . uird->th, get_t lme (child_sp) ) ; 

lendlf 

merge_stat_to_parent (chlld_sp, sp) ; 

If (get_approx(child_sp) <= sp->approx. achieved) ( 
merge_approx_to_parent (child_sp, sp) ; 
merge sol to parent (chlld sp, sp) ; 
t 

merge_threshold_to_parent (chlld_sp, sp) ; 

switch (sp->alg.ulrd->alg) ( 
case UNARY_APPROX : 

if (chi ld_sp->approx. approx <“ 0.0) break_slgnal - YES; 
break; 

case UNARYTH: 

If (msg. feasible — YES) break_slgnal = YES; 
break; 

default: error (“ulrd_algorlthm: no such pruning device"); break; 

I 

If (break_slgnal — ■ YES) break; 
msg. feasible « NO; 

(sp->chlld - chlld_sp ■ create_brother_search (chlld_sp) ) ->parent - sp; 

I 

I 

void set_ulrd device (sp. Iter) 
search_ *sp; 
lnt Iter; 

I 

switch (sp->alg .ul rd->alg) ( 

case UNARY_APPROX : setuirdapprox (sp, Iter); break; 

case UNARY_TH: set_ulrd_threshold (sp, iter); break; \ 

default: error ("set_ulrd_device: no such pruning device”); break; 

1 


void set_ulrd_approx (sp. Iter) 
search_ *sp; 
lnt Iter; 

( 

switch (sp->alg.ulrd->a_type) ( 

caseTYPE I: 1 rd_set_typeI_approx (sp, Iter, 4 (sp->alg. ulrd->baslc) ) ; break; 

case TYPEII: 1 rd_set_typel I_approx (sp, Iter, 4 (sp->alg.uird->baslc) ) ; break 
default: error(”set_ulrd_approx: no such type"); break; 

I 


) 
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void set_uird_threshold (sp, iter) 
search_ *sp; 
int iter; 

{ uird_ *alg = sp->alg. uird; 

domain ub = sp->parent->root ub; 
domain lb = sp->parent->root lb; 
float g = get_g_factor (sp); 

if (iter == 1) { 

/* set init uird threshold */ 

sp->constr .bound = alg->th = lb + g * (ub - lb); 

) 

else { /* set intermediate-iteration uird threshold */ 
ird_set_ird_threshold (sp, iter, & (a lg->basic) ) ; 

1 

reset th_environ (sp) ; 

} 

void uird_entry (sp, node) 
search_ *sp; 
node_ *node; 

{ 

switch (sp->alg . uird->alg) ( 

case UNARY_APPROX: break; 

case UNARY_TH: set__th_entry (sp, node); break; 

default: error ("uird_entry: no such pruning device"); break; 

) 


/* bIRD* */ 

void bird_algorithm (sp) 
search_ ’"sp; 

( search_ *child_sp; 
search_message_ msg; 
search_ending_ term_signal; 
int iter; 

sp->approx . achieved = sp->approx. root_approx; 
sp->gllb = sp->root_lb; 
sp->glub = sp->root_ub; 

set_search_message (imsg, FRESH_START, NULL, YES, cmd.pf.rt, cmd.pf.st); 
child_sp « create chi ldsearch (sp) ; 
for (iter = 1; 1; iter++) [ 

RTS_IRD_iter = iter; 
lifndef NO_INHERIT 

inher it_sol_f rom_parent (child_sp, sp) ; 
iendi f 

putsch! ld_constr (chi ld_sp, sp, 1 . 0 , 1 . 0 , 1 . 0 ); 
set_bird_device (child_sp, iter) ; 
idpd_init () ; 

term_signal = (sp->st rategy « DFS) ? dfs_primitive (child_sp, sp, &msg) : 

gdf s_primitive (child_sp, sp, &msg) ; 

eval_final_approx (child_sp) ; 

# ifdef DEBUG 
if (cmd. debug >= 1) 

print f("iter=%d, approx (glub=%g) =%g, threshold=%g, time=%d\n", 

iter, (float) chi ld_sp->glub, (float) expected_opt (child_sp) , 

(float) child_sp“>alg.blrd->th, get__t ime (child_sp) ) ; 

#endi f 

merge_stat_to_parent (child_sp, sp) ? 
if (get_approx (child_sp) <= sp->approx. achieved) { 


mergeapproxtoparent (child_sp, sp) ; 
mergesol toparent (child_sp, sp) ; 

) 

merge_threshold_to_parent (child_sp, sp) ; 
if (chi ld_sp->const r. bound == problem. huge) [ 
if (chi ld_sp->approx. approx <= 0.0) break; 

) 

else if (msg. feasible == YES) break; 
msg. feasible = NO; 

(sp->child = child_sp » create_brother_search (child_sp) ) ->parent 

) 

f 


void set_bird_device (sp, iter) 
search_ *sp; 
int iter; 

( 

/* Ideally, approx and threshold should be set iteratively, 

* until both converge. 

* However, it may not converge and here it is emulated by 

* setting approx first and then setting threshold. 

V 

set_bird_approx (sp, iter) ; 
set_bird_threshold (sp, iter); 


void set_bird_approx (sp, iter) 
search_ *sp; 
int iter; 

( 

ird_set_typeI_approx (sp, iter, & (sp->alg.bird->basic) ) ; 


void set_bird_threshold (sp, iter) 
search_ *sp; 
int iter; 

( bird_ *alg = sp->alg. bird; 

domain ub = sp->parent->root_ub; 
domain lb = sp->parent->root_lb; 
float g = get_g_factor (sp); 

if (iter == 1) ( 

/* set init bird threshold */ 

sp->constr. bobnd *» alg->th = lb + g * (ub - lb); 

1 

else ( /* set intermediate-iteration uird threshold */ 
ird_set_ird_threshold (sp, iter, & (alg->basic) ) ; 

} 

reset_t h envi ron (sp) ; 

1 


void bird_entry (sp, node) 
search_ *sp; 
node_ *node; 

( set_t h_entry (sp, node); ) 


/*+ 

+ IRD* Approximation Setting Routines + 
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+ algorithms: + 

+ . naive approximation (Type I): + 

+ linear gradient, like sTCGD. + 

+ . regression approximation (Type II): + 

+ regressed gradient, like pTCGD . + 

+ * last approximation: regression gradient. + 

+ +*/ 


/** linear-gradient approximation **/ 
void ird_set_typeI_approx (sp, iter, basicp) 
search^ 'sp; 
int iter; 

ird_basic_ * basicp; 

{ float sched; 

float x_root => sp->parent->approx .x_root_approx; 

float g = get_g_factor (sp) ; 

int count; 

search^ 'brother; 

float glub(2) ; 

if (cmd.xon =*= YES) ( 

x_root = approx2accu (x^root); 

sched » x_root + (1.0 - x_root) * iter * g; 

1 else { 

sched - x_root * (1.0 - iter * g) ; 

} 

if (basicp->short cut && check_span (sp, FULL__SPAN ) *=«= YES) { 
count “ 0; 

for (brother = sp->brother; brother; brother = brot her->brother) 
if (is_feasible_t ime (get_time (brother))) ( 
glub[count++] = (float) (brother- >glub) ; 
if (count >= 2) break; 

} else break; 

if (glub(l) - glub(0) <* glub[0) * basicp->margin) 

/** if the upper bounds changes only a little bit, 

** then it is likely that upb is very close to optimum. "/ 
sched = (cmd.xon YES) ? 1.0 : 0.0; 

) 

if (cmd.xon == YES) sched = accu2approx (sched) ; 
sp->approx. approx = (sched >= 0.0) ? sched : 0.0; 


void ird_set_regress_approx (sp, iter, span, basicp) 
search_ *sp; 
int iter; 
span_ span; 
ird_basic_ * basicp; 

{ float sched, a; 
double beta [2); 

float x_root = sp->parent->approx .x_root_approx; 
float g = get_g_factor (sp) ; 

if (cmd.xon == YES) { 

x_root *= approx2accu (x__root) ; 

sched = x_root + (1.0 - x_root) * iter * g; 

/ else { 

sched = x_root * (1.0 - iter * g) ; 


if (cmd.xon == YES) { 

if (get_accu_vs_t ime (sp, beta, span) == YES) { 

sched = beta (01 ♦ beta (11 * loglO (( (double) sp->constr. t ime) ) ; 
a « get_approx (sp->parent ) ; 
a = approx2accu (a) ; 

if (sched <» a) sched = a + (1.0 - x_root) * g; 

) 

sched « accu2approx (sched) ; 

} else ( * 

if (get_approx_vs_t ime (sp, beta, span) == YES) { 

sched = beta (0 ) + beta(l) * loglO (( (double) sp->constr. time) ) ; 
if (sched >= get_approx (sp->parent) ) 

sched = get_approx (sp->parent ) - sp->parent->approx. root_approx * g; 

I 

) 

sp->approx. approx = (sched >= 0.0) ? sched : 0.0; 

1 


void ird__set_typeII_approx (sp, iter, basicp) 
search_ *sp; 
int iter; 

ird_basic_ 'basicp; 

1 i rd__set_regress_approx (sp, iter, FULL_SPAN, basicp); | 


/* + 

♦ IRD* Threshold Setting Routines + 

♦ algorithms: + 

♦ . naive algorithm. + 

♦ . static algorithm: type I & type II + 

♦ . predictive algorithm: type I & type II + 

I +*/ 


void ird_set_ird_threshold (sp, iter, basicp) 
search^ *sp; 
int iter; 

ird_basic_ 'basicp; 

( 

switch ( (get_set_th (sp) ) ->alg) { 

case NAIVE_TH: ird_set_naive_t hreshold (sp, iter, basicp); break; 

case STATICTH: ird_set_stat ic_threshold (sp, iter, basicp); break; 

case PREDICTIVEJTH: ird_set_predict ive_t hreshold (sp, iter, basicp); break; 
default: error f*ird_set_ird_t hreshold: no such threshold setting**); break; 

1 


void ird_set_naive_t hreshold (sp, iter, basicp) 
search_ *sp; 
int iter; 

ird_basic_ 'basicp; 

( domain lb = sp->parent->root_lb; 
domain ub = sp->parent->root_ub; 
float g = getgfactor (sp) ; 
domain th; 
double beta [ 2 ) ; 
int count; 
search_ 'brother; 
float glub( 2 ] ; 


) 
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sp->constr .bound = lb + iter * g * (ub - lb); 
if (basicp->shortcut && check_span (sp, FULL_SPAN) == YES) ( 
count « 0; 

for (brother = sp->brother; brother; brother = brother->brother) 
if (is_feasible_time (get_time (brother))) { 
glub[count++ } = (float) (brother->gl ub) ; 
if (count >= 2) break; 

} else break; 

if (glub[l) - glub[0J <= glub(0) * basicp->margin) 

/"* if the upper bounds changes only a little bit, 

** then it is likely that upb is very close to optimum. **/ 
sp“>constr, bound = glub[0|; 

} 

put_threshold (sp, sp->constr .bound) ; 

} 


void ird_set_st at ic_t hreshold (sp, iter, basicp) 
search_ "sp; 
int iter; 

ird_basic_ "basicp; 

{ 

switch ( (get__set_th (sp) ) ->type) { 

case TYPE_I: ird_set_typel_stat icthreshold (sp, iter, basicp); break; 

case TYPE_II: ird_set_typell_stat lc_threshold (sp, iter, basicp); break; 

default: error ("irdsetstaticthreshold: no such type-); break; 

} 


void ird_set_typel_stat ic_threshold (sp, iter, basicp) 
search_ *sp; 
int iter; 

ird_basic_ "basicp; 

( domain u = ird_get_predicted_glub (sp, iter, basicp); 

sp->constr. bound = (u + sp->brother->glub) * 0.5 / (1.0 + sp->approx. approx) ; 
put_threshold (sp, sp->constr. bound) ; 


void ird_set_typell_stat ic_threshold (sp, iter, basicp) 
search_ *sp; 
int iter; 

ird_basic_ "basicp; 

{ search_ "brother = sp->brother; 
domain prev_th » get_threshold (sp->brother) ; 
domain prev_prev_glub, prev_glub, dth; 
float g = get_g_factor (sp) ; 
float ub, lb, delta, base; 

if (iter — 2) ( 

prev_prev_glub = sp->parent->root_lb; 
prev_glub = brother->glub; 

) 

else { 

prev_prev__glub « brother->brother->glub; 
prev_glub = brot her->gl ub; 

} 


base = 1.0 + brot her->approx . approx; 
lb = prev_glub / base; 
ub = prev_prev_glub / base; 
if (prev_th < lb) ( 

/* case I */ 

delta = (ub - lb) * iter * g; 
dth - lb - prev th + delta; 

} 

else ( 

/* case II "/ 

dth » delta «* (ub - lb) * g; 

} 

sp->constr. bound = prev__th + dth; 
ub = sp->glub / (1.0 + sp->approx'. approx) ; 
if (sp->constr. bound > ub) sp->constr .bound = ub; 
put_threshold (sp, sp->constr. bound) ; 


void ird_set_predlct ive threshold (sp, iter, basicp) 
search_ "sp; 
int iter; 

ird_basic_ "basicp; 

( 

switch ( (get_set_th (sp) ) ->type) ( 

case TYPE I: ird_set_typel_predict i ve_threshold (sp, iter, basicp); 

case TYPE_II: ird_set_typell_predict ive_t hreshold (sp, iter, basicp); 

default: error ("ird_set jpredict ive_threshold: no such type"); 

\ 


void ird_set_typeI_predictive_threshold (sp, iter, basicp) 
search_ "sp; 
int iter; 

ird_basic_ "basicp; 

( search_ "brother = sp->brother; 
domain lb = sp->parent->root_lb; 
domain ub =* sp->parent->root_ub; 
float g - get_g_factor (sp) ; 
long this_time; 
double beta (2 | ; 

sp->constr. bound = lb + iter " g * (ub - lb); 

if (get_th_vs_t ime (sp, beta, FULL_SPAN) == YES) ( 
thistime » get_r_factor (sp) * get_time (brother); 
if (thistime > sp->constr.time) this_time = sp->constr .t ime; 
sp->constr. bound - beta(O) + beta[l] " loglO ((double) thls_time); 
if (sp->constr. bound < brot her->constr. bound) 

sp->constr. bound = brother->constr. bound + g * (ub - lb); 

} 

put_t hreshold (sp, sp->constr .bound) ; 

1 


void ird_set_typell_predict ive_threshold (sp, iter, basicp) 
search^ "sp; 
int iter; 

ird_basic_ "basicp; 

( search^ "brother = sp->brother; 
domain lb =■ sp->parent->root_lb; 
domain ub = sp->parent->root_ub; 


break 

break 

break 
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float g «= get_g_factor (sp) ; 
long this_time; 
double beta [2); 

sp->constr .bound = lb + iter * g * (ub - lb); 

if (get_bin_vs__t ime {sp, beta, FULL_SPAN) ==* YES) ( 
this_time « get_r_factor (sp) * get_time (brother); 
if (this_time > sp->constr .t ime) this_time « sp->constr. time; 
sp->constr .bound = beta[0] + beta[l) * loglO ((double) this_time); 
if (sp->constr .bound < brother->constr .bound) 

sp->constr .bound = brother->constr .bound + g * (ub - lb); 

} 


yesno_ is_lw_end (sp, const rp) 
search_ *sp; 
constr_ ‘constrp; 

( 

if (sp->const r . time ! *= huge_long) 

if (sp->constr. time >= const rp->t ime) return YES; 
if (sp->constr. space != huge_long) 

if (sp->constr. space >“ const rp->space) return YES; 
if (sp->constr.cst !“ huge__float) 

if (sp->constr . cst >= constrp->cst) return YES; 
return NO; 


put_threshold (sp, sp->constr .bound) ; 

} 


/*+ t 

+ IRD" Library Routines + 

+ Many Library Routines are in RTS ♦ 

+ t*/ 


domain ird_get_predicted_glub (sp, iter, basicp) 
search_ *sp; 
int iter; 

ird_basic_ ‘basicp; 

( span_ span = FULL_SPAN; 
float step; 
double beta (2); 

if (get_glub_vs_approx (sp, beta, span) == YES) 

return {(domain) (beta(O) + beta(l) * sp->approx. approx) ) ; 

/* if situation is too tough to handle, simply use naive glub */ 

step = iter * get_g_factor (sp) * (sp->parent->root_ub - sp->parent->root_lb) ; 

return ((domain) (sp->parent->root_ub - step)); 


void lw_set_constr (sp, const rp) 

search_ *sp; 

constr_ ‘constrp; 

( float time, space; 

if (sp->const r. time != huge_long) ( 

time - (float) (const rp->t ime - sp->constr. time ) f 

time = time * 0.5; 

sp->constr. time = tolong (time) ; 

I 

if (sp->constr. space !° huge_long) | 

space = (float) (constrp->space - sp->constr. space) ; 

space = space * 0.5; 

sp->constr. space - tolong (space) ; 

I 

if (sp->const r. cst != hugefloat) 

sp->constr.cst += ( (constrp->cst - sp->constr .cst ) * 0.5); 


algorithm/para.c 


/** 

* * 

**/ 


Parallel Processing of Searches 


algorithm/lw. c 


void lawler_wood_algorithm (sp) 
search_ *sp; 

{ constr_ save_constr; 
search_message_ msg; 

sp->approx. achieved = sp->approx. root_approx; 
save_constr = sp->constr; 
set_stop_constr (sp, 0.5, 0.5, 0.5); 

set_search_message (&msg, FRESH_START, NULL, NO, cmd.pf.rt, cmd.pf.st); 
while (bf s_primit ive (sp, NULL, &msg) == S E A RC H_I S_A BORT ED ) ( 
if (is_lw_end (sp, & save_constr> == YES) break; 
msg. style = RESUME; 
sp->approx. approx += 0.05; 
lw_set_constr (sp, & save_constr) ; 

} 

sp->constr = save_constr; 
eval__final_approx (sp) ; 


void para_algorit hm (sp, pe, num_pe) 
search_ ‘sp; 
search_ *pe(); 
int num_pe; 

1 search_message_ msg; 
yesno_ break signal; 
int i; 

search_ *first_sp; 
node_ ‘rootlet; 
long ‘ngenarr = NULL; 
long max_ngen; 

sp->approx. achieved = sp->approx. rootapprox; 
sp->gllb - sp->root_lb; 
sp->glub = sp“>root_ub; 

/“ start the first bfs “/ 
first_sp = create_chi ld_search (sp) ; 

setsearchmessage ((msg, FRESH_START, NULL, VES, cmd.pf.rt, cmd.pf.st) 
idpd_init (); 

putchi ld_const r (first sp, sp, 1.0, 1.0, 1.0); 
switch (cmd. first) 

( 
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case -1: 

f irst_sp->st rategy = BFS; 
first_sp->algorithm = DEFAULT; 
first_sp->open.btree = NULL; 
pf irst_primitive (first_sp, sp, 4msg, 1); 
break; 
default: 

first_sp->st rategy = BFS; 
first_sp->algorithm = DEFAULT; 
f irst_sp->open.btree = NULL; 

pf irst__primitive (first_sp, sp, &msg, num_pe); 
break; 

} 

merge_sol_to_parent {first sp, sp) ; 
merge_stat_to_parent (first_sp, sp) ; 

/** create an array of ngen **/ 

ngen_arr - (long *) malloc (num_pe * sizeof (long)); 

/** create a search process for each pe **/ 
for (i * 0; i < num_pe; i++) 

{ 

pe[i] = create_child_search(sp); 
pe [ i 1 ->st rategy *=> cmd . strategy; 
pe [ i ] ->algorithm = cmd.algorithm; 
pe [ i ] ->open. 1 ist = NULL; 
pe[i) -> incumbent = sp-> incumbent; 
pe [ i J ->glub - sp->glub; 
pe[i]->gllb = sp->gllb; 

if {(rootlet = btreedelete (firstsp))) insert (rootlet, pe [ 1 ) ) ; 
put_child_constr (pe[i), sp, 1.0, 1.0, 1.0); 
pe { i ] ->approx .approx = sp->approx. approx; 

} 

set_search_message (&msg, RESUME, NULL, YES, cmd.pf.rt, cmd.pf.st); 
break_signal = NO; 

while (para_termination (pe, num_pe) == NO) 

( 

/** start parallel search **/ 
for (i =0; i < num_pe; i++) 

break_signal » para_primitive (pe[i), sp, &msg f sp->gllb, ngen_arr+i); 

# ifdef TIME_I S_GEN 
max_ngen = 0; 

for (i = 0; i < num_pe; i++) 

if (max_ngen < * (ngen_arr+i ) ) max_ngen = * (ngenarr+i) ; 
sp->stat.num_op += max_ngen; 

Seise 

/** it is assumed that the virtual time is the number of nodes expanded **/ 
(sp->stat . num_op) ++; 
fendi f 

/** bookkeeping **/ 

para_merge_solut ion (sp, pe, num_pe); 

if (break_signal == YES) break; 

/** load_balancing **/ 
para_load_balancing (pe, num_pe); 

) , 

para_merge_stat (sp, pe, num_pe) ; 
eval_final_approx (sp) ; 


yesno_ para primitive (pep, sp, msgp, glib, ngenp) 
search_ *pep; 
search_ *sp; 
search_message_ *msgp; 
domain glib; 
long *ngenp; 

( yesno_ break_signal ~ NO; 
search_ending_ retval; 
long ngen; 

switch (cmd.algorithm) { 
case PBFS: 

if (pbf s_primit ive (pep, sp, msgp, glib, ngenp) ■■ SEARCH_IS_ABORTED) 
break_signal *» YES; 
break ; 
case PGDFS: 

if (pgdfs_primit ive (pep, sp, msgp, glib, ngenp) — SEARCH_IS_ABORTED) 
break_signal - YES; 
break; 
default : 

error ("paraprimitive: no such parallel search primlt ive") ; 
break; 

} 

return break_signal; 

) 


algorithm/rts.c 


/* begin, shorthand */ 

•define PRINTITERPROFILE print f V 

("i ter=%d, approx=%g, accu=%g, exp_opt (glub^lg) =%g, threshold=%g, time**%d\n 
iter, chi ld_sp->approx. approx, approx2accu (chi ld_sp->approx. approx) , \ 
(float) child_sp->glub, (float) expected_opt (child_sp) , \ 

(float) chi ld_sp->constr. bound, get_t ime (chlld_sp) ) ; 

/* end, shorthand */ 

/** internal functional predeclarations **/ 

void set_urts_device (), set_urts_approx () , set_urts_threshold (); 
void set_brts_device (), set_brts_approx () , set_brts_threshold (); 
void set_hrts_device 0 , set_hrts_approx () ; 

void set_lg_approx (), set_gg_approx () , set_fr_approx () , set_qg_approx 0 

void set_regress_approx (), set_last_approx (), set_hrts_threshold () ; 

void set_rts_threshold (), set_naive_threshold (), set_stat ic_threshold (); 

void setlgthreshold (), set_gg_threshold (), set_qg_threshold (); 

void setpr threshold (), set_mg_threshold (); 

void set_predictive_threshold (), set_f r_threshold () ; 

void set_ld_threshold (), reset_t h_envi ron () , reset_th_bin (); 

void set_th_entry (), enter_th_bin (); 

float get_g_factor () , get_r_factor (); 
domain get_predicted_glub (); 

yesno_ check_span (), get_bin_vs_time {), get_th_vs__t ime () ; 

yesno_ get_glub_vs_time (), get_approx_vs_time () , get_glub_vs_approx (); 

yesno_ get_accu_vs_time (), is_null_device () ; 

iter_attr_ get iterat ion_attribute () ; 

set_th_ *get_set_th (); 


/* uRTS* */ 

void urts algorithm (sp) 
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search_ *sp; 

{ search^ *child_sp; 
search_message_ msg; 
search_ending_ term_signal; 
float adjust = 1.0; 
float r; 

iter__attr_ attr = OTHER_ITER; 
yesno_ break_signal = NO; 
int iter; 

sp->approx. achieved = sp->approx. root_approx; 
sp->gllb = sp->root__lb; 
sp->glub » sp->root_ub; 

set_search_message (&msg, FRESH__START, NULL, YES, cmd.pf.rt, cmd.pf.st); 
child_sp = create_child__search (sp) ; 
break_signal « NO; 


(sp->child = child sp = createbrot her_search (childsp) ) ->parent = sp 

} 

} 


void set_urts_device (sp, iter, attr) 
search_ *sp; 
int iter; 
iter_attr_ attr; 

1 

switch (sp->alg.urts->alg) ( 

case UNARYAPPROX: seturt sapprox (sp, iter, attr); break; 

case UNARY_TH : set_urts_threshold (sp, iter, attr); break; 

default: error ( M set_urts_device: no such pruning device"); break; 

} 


r *■ get_r_factor (sp) ; 
if (r « 0.0) r = 1.0; 

for (iter = 1; 1; iter++) { 

RTS__I RD_i ter = iter; 

# if ndef NO_INHERIT 

inherit_sol_f rom__parent (child_sp, sp) ; 

#endif 

if (child_sp->alg.urts->last_pred — YES) { 

attr = get_iterat ion_att ribute (child_sp, iter); 
switch (attr) { 

case LAST_ITER: adjust » 1.0; break; 

case LAST_2ND_ITER: adjust = 1.0 / r; break; 

case OTHER_ITER : adjust = 1.0; break; 

default: error ( "urts_algorithm: no such iteration attribute"); break; 

) 

) 

set_urts_device (child_sp, iter, attr); 
if (is_null_device (child_sp) == YES) adjust = 1.0; 
put_chi ld_const r (child_sp, sp, adjust, 1.0, 1.0); 
idpd_init () ; 

term_signal = (sp->st rategy == DFS) ? dfs_primiti ve (child_sp, sp, &msg) : 

gdfs primit ive (child_sp, sp, 4msg) ; 

eval_final_approx (child_sp) ; 

#ifdef DEBUG 

if (cmd. debug >= 1) { PRINT_ITER_PROFILE ) 

Sendif 

merge_stat_to_parent (child_sp, sp) ; 
merge_sol_to_parent (child_sp, sp) ; 
if (get_approx (child_sp) <= sp->approx. achieved) 
merge_approx_to_parent (child_sp, sp) ; 
merge_threshold_to_parent (child_sp, sp) ; 


void set_urts_approx (sp, iter, attr) 
search_ *sp; 
int iter; 
iter_attr__ attr; 

I 

switch (sp->alg.urts->a_type) { 
case TYPEI: set lg approx (sp, 

case TYPE_II: set_gg_approx (sp, 

case TYPE_III: set_fr_approx (sp, 
case TYPE_IV:* set qg approx (sp, 
default: error ("set_urts_approx: 


iter) ; break; 
iter); break; 
iter); break; 
iter); break; 
no such type"); break; 


} 


) 


void set_urts_threshold (sp, iter, attr) 
search_ *sp; 
int iter; 
iter_attr_ attr; 

{ urts_ *alg = sp->alg. urts; 

domain ub = sp->parent->root__ub; 
domain lb = sp->parent->root_lb; 
float g * get_g_factor (sp) ; 

if (iter == 1) | 

/* set init urts threshold */ 

sp->constr. bound = alg->th = lb + g * (ub - lb); 
else ( 

/* set intermediate-iteration urts threshold */ 
set_rts_threshold (sp, iter, attr); 

) 


switch (sp->alg.urts->alg) { 
case UNARY_APPROX: 

if (chi ld_sp->approx. approx <= 0.0) break_signal = YES; 
break; 

case UNARYJTH: 

if (msg. feasible =»*= YES) break_signal = YES; 
break; 

default: error ("urt s__a Igor it hm: no such pruning device"); break; 

) 

if (break__signal == YES) break; 
if (get_time (sp) >= sp->const r . t ime) break; 
msg. feasible = NO; 


reset_th_environ (sp) ; 

} 


void urtsentry (sp, node) 
search_ *sp; 
node_ *node; 

{ 

switch (sp->alg.urts->alg) ( 

case UNARY_AP PROX : break; 

case UNARYTH: set_th_entry (sp, node); break; 

default: error ("urts entry: no such pruning device"); break; 
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/* bRTS* */ 

void brts_algorithm (sp) 
search_ *sp; 

( search_ *child_sp; 
search_message_ msg; 
search__ending_ term_signal; 
float adjust = 1.0; 
float r; 

lter_attr_ attr - OTHER_ITER; 

Int iter; 


void set_brts_device (sp, Iter, attr) 
search_ *sp; 
int iter; 
lter_attr_ attr; 

( 

/* Ideally, approx and threshold should be set iteratively, 

* until both converge. 

* However, It may not converge and here it is emulated by 

* setting approx first and then setting threshold. 

V 

setbrtsapprox (sp, iter, attr); 
set_brts_threshold(sp, iter, attr); 

) 


sp->approx. achieved - sp->approx. root_approx; 
sp->gllb = sp->root_lb; 
sp->glub = sp->root_ub; 

set_search_message (smsg, FRESHEST ART, NULL, YES, cmd.pf.rt, cmd.pf.st); 
child_sp = create_chi ld_search (sp) ; 

r • get_r_factor (sp) ; 

If (r ~ 0.0) r - 1.0; 

for (iter - 1; 1; iter++> ( 

RTS_IRD_iter = iter; 
lifndef NO_INHERIT 

inherit_sol_from_parent (child_sp, sp) ; 
fendif 

if (child_sp->alg.brts->last_pred »= YES) 

switch ((attr • get_iteratlon_attribute (chlld_sp, iter))) ( 
case LAST_ITER: adjust * 1.0; break; 

case LAST_2ND_ITER: adjust - 1.0 / r; break; 

case OTHER_ITER: adjust = 1.0; break; 

default: error ("brtsalgorlthm: no such iteration attribute”); break; 

) 

set_brts_device (child_sp, iter, attr) ; 
if (is_null_device (chlld_sp) =•“ YES) adjust - 1.0; 
put_child_constr (child_sp, sp, adjust, 1.0, 1.0); 
idpd_init () ; 

term_signal = (sp->strategy =- DFS) ? dfs_primitive (child_sp, sp, Smsg) : 

gdfs primitive (chlld_sp, sp, smsg); 

eval_f inal_approx (child_sp) ; 
fifdef DEBUG 

if (cmd. debug >= 1) ( PRINT_ITER_PROFILE ) 

Sendif 

merge_stat_to_parent (child_sp, sp) ; 
merge_sol_to_parent (child_sp, sp) ; 
if (get_approx (child_sp) <= sp->approx. achieved) ( 
merge_approx_to_parent (child_sp, sp) ; 

I 

merge_threshold_to_parent (child_sp, sp) ; 
if (chi ld_sp->constr. bound == problem. huge) ( 
if (child_sp->approx. approx <= 0.0) break; 

) 

else if (msg. feasible == YES) break; 
if (get_time (sp) >= sp->constr.time) break; 
msg. feasible » NO; 

(sp->child » child_sp -- create brother search (child_sp) )->parent = sp; 

) 

) 


void set brts approx (sp, iter, attr) 


iter); break; 
iter); break; 

iter); break; /** NA **/ 

iter); break; 
no such type”) ; break; 


void set_brts_threshold (sp, iter, attr) 
search_ *sp; 

Int iter; 
iter_attr_ attr; 

( brts_ *alg - sp->alg.brts; 

domain ub = sp->parent->root_ub; 
domain lb - sp->parent->root_lb; 
float g “ getgf actor (sp) ; 

if (iter -= 1) ( 

/* set init brts threshold */ 

sp->constr. bound = alg->th = lb + g * (ub - lb); 

I 

else | 

/* set intermediate-iteration urts threshold */ 
set rts threshold (sp, iter, attr) ; 

) 

/«* if approximation degree is 0, then there is no thresholding 
if (sp->approx. approx == 0.0) ( 
sp->constr. bound = problem. huge; 
putthreshold (sp, sp->constr. bound) ; 

) 

resetthenvi ron (sp) ; 

1 


search_ *sp; 
int iter; 
lter_attr_ attr; 

( 

switch (sp->alg.brts->a_type) ( 
case TYPEI: set_lg_approx (sp, 

case TYPE_II: set_gg_approx(sp, 

case TYPEIII: set_f rapprox (sp, 
case TYPEIV: setqg approx (sp, 

default: error (“setbrtsapprox: 

I 


void brtsentry (sp, node) 
search_ *sp; 
node_ *node; 

( setthentry (sp, node); ) 



ISE' algorithm, CRHC-92-1 


/* hRTS * */ 

void hrts_algorithm (sp) 
search_ *sp; 
l search_ *child_sp; 
search_message_ msg; 
search_ending_ term_signal; 
float adjust = 1.0; 
float r; 

iter_attr_ attr - OTHERITER; 
int iter; 

sp->approx. achieved - sp->approx. root_approx; 
sp->gllb =■ sp->root_lb; 
sp->glub = sp->root ub; 

set_search_message (smsg, FRESH_START, NULL, YES, cmd.pf.rt, cmd.pf.st); 
child_sp = create_child_search (sp) ; 

r = get_r_factor (sp) ; 
if (r == 0.0) r = 1.0; 

for (iter = 1; 1; iter++) ( 

RTS_IRD_lter = iter; 
llfndef NO_INHERIT 

inherit_sol_from_parent (child sp, sp) ; 

Kendif 

if (child_sp->alg.hrts->last_pred =» YES) 
switch ((attr = get_iteration_attribute<chlld_sp, iter))) ( 
case LAST_ITER: adjust = 1.0; break; 

case LAST_2ND_ITER: adjust - 1.0 / r; break; 

case OTHER^ITER: adjust - 1.0; break; 

default: error ("hrts_algorithra: no such iteration attribute"); break; 

set_hrts_device (chlld_sp, iter, attr); 
if (ls_null_devlce (chlld_sp) — YES) adjust » 1.0; 
put_child_constr (child_sp, sp, adjust, 1.0, 1.0); 
ldpd_init () ; 

term_signal = (sp->st rategy — DFS) ? dfs_prlmitive (chiid_sp, sp, srasg) : 

gdfsprimltive (chlld_sp, sp, 4msg); 

eval_final_approx (child_sp) ; 
iifdef DEBUG 

if (cmd. debug >= 1) ( PRINT ITER PROFILE | 
dendif 

merge_stat_to_parent (child_sp, sp) ; 
merge_sol_to_parent (child_sp, sp) ; 
if (get_approx (child_sp) <- sp->approx. achieved) 
merge_approx_to_parent (child_sp, sp) ; 
merge_threshold_to_parent (chlld_sp, sp) ; 
if (chi ld_sp->constr. bound == problem. huge) ( 
if (child_sp->approx. approx <= 0.0) break; 

) else ( 

if (msg. feasible == YES) break; 

( 

if (get_time (sp) >= sp->constr.tlme) break; 
msg. feasible « NO; 

(sp->child = child_sp = create_brother_search (child_sp) ) ->parent = sp; 

} 


void set_hrts_device (sp, iter, attr) 


( 


search_ "sp; 
int iter; 
lter_attr_ attr; 

/* Only the search of last iteration needs both approx and threshold, 
* all searches of other iterations needs approx only. 

*/ 

set_hrts_approx (sp, iter, attr); 

if (attr == LAST_ITER) ( 

set_hrts_threshold(sp, iter, attr); 

/** if approximation degree Is 0, then there is no thresholding **/ 
if (sp->approx. approx =» 0.0) ( 
sp->constr. bound - problem. huge; 
put_threshold (sp, sp->constr. bound) ; 

I 

) 

I 


void set_hrts_approx (sp, iter, attr) 
search_ *sp; 
int iter; 
lter_attr_ attr; 

( 

switch (sp->alg ,hrts->a_type) l 

case TYPE_I : set_lg_approx(sp, iter); break; 

case TYPE_II: setggapprox (sp, iter); break; 

case TYPE_III: set_fr_approx (sp, iter) ; break; 
case TYPE_IV: setqgapprox (sp, iter); break; 

default: error ("sethrtsapprox: no such type"); break; 
I 

) 


void set_hrts_threshold (sp, iter, attr) 
search_ "sp; 
int iter; 
lter_attr_ attr; 

( hrts_ "alg «■ sp->alg. hrts; 

domain ub = sp->parent->root_ub; 
domain lb - sp->parent->root_lb; 
float g " get_g_factor (sp) ; 

if (iter — 1) ( 

/* set init hrts threshold **/ 

sp->constr. bound = alg->th = lb + g * (ub - lb); 
) else ( 

set_rts threshold (sp, iter, attr); 

) 

reset_th_envlron (sp) ; 

) 


void hrts_entry (sp, node) 
search_ "sp; 
node_ ‘node; 

( sett hentry (sp, node); ) 


/‘t + 
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+ RTS* Approximation Setting Routines + 

+ algorithms: + 

+ . naive approximation (Type I): * 

+ linear gradient, like sTCGD. + 

+ . regression approximation (Type II) : + 

+ regressed gradient, like pTCGD. + 

+ * last approximation: regression gradient. + 

+ + */ 


/** LG: linear-gradient approximation **/ 
void set_lg_approx {sp, iter) 
search_ *sp; 
int iter; 

{ float sched, margin_sca le; 

float x_root = sp->pa rent-> approx .x_root_approx; 
float g - get_g_factor (sp) ; 

if (cmd.xon == YES) { 

x_root » approx2accu (x_ root); 

sched = x_root + (1.0 - x_root) * iter * g; 

) else { 

sched = x_root * (1.0 - iter * g) ; 

} 

if (cmd.xon == YES) sched = accu2approx (sched); 
sp->approx. approx - (sched >» 0.0) ? sched : 0.0; 


/** GG: geometric-gradient approximation **/ 
void set_gg_approx (sp, iter) 
search_ *sp; 
int iter; 

{ float sched, margin_scale; 

float x_root = sp->parent->approx.x_root_approx; 
float g = get_g_factor (sp) ; 
int factor = 1; 

if (iter > 2) { 

for ( — iter; iter > 0; — iter) factor * = 2; 
iter = factor; 

) 

if (cmd.xon « YES) ( 

x_root = approx2accu (x root); 

sched = x_root + (1.0 - x_root) * iter * g; 

} else ( 

sched = x_root * (1.0 - iter * g) ; 

1 

if (cmd.xon == YES) sched = accu2approx (sched); 
sp->approx. approx = (sched >=0.0) ? sched : 0.0; 


/** FR: first-order-regression approximation **/ 
void set_regress_approx (sp, iter, span) 
search_ *sp; 
int iter; 
span_ span; 

( float sched, a; 

search_ ‘brother = sp->brother; 
double beta (2); 

float x__root = sp->parent->approx.x_root_approx; 
float g = get_g_factor (sp) ; 


double t = (double) sp->constr.time; 

if (cmd.xon == YES) ( 

x root = approx2accu (x_root) ; 
if (brother) 

sched = approx2accu (brot her- >approx. approx) + (1 . 
else 

sched = x_root + (1.0 - x_root) * iter * g; 

) else { 

if (brother) 

sched = brot her->approx. approx - x_root * g; 
else 

sched = x_root * (1.0 - iter * g) ; 

I 

if (cmd.xon == YES) l 

if (get_accu_vs__t ime (sp, beta, span) = = YES) ( 
sched = beta[0] + beta(l] * loglO (t) ; 
a = get_approx (sp->parent) ; 
a = approx2accu (a); 

if (sched <= a) sched = a + (1.0 - xroot) * g; 

) 

sched = accu2approx (sched) ; 

) else ( 

if (get_approx_vs_t ime (sp, beta, span) == YES) ( 
sched = beta (0 ) + beta[lj * loglO (t); 
a = get_approx (sp->parent) ; 
if (sched >= a) sched - a - x_root * g; 

) 

) 

sp->approx. approx = (sched >- 0.0) ? sched : 0.0; 

1 

void set_fr_approx (sp, iter) 
search_ *sp; 
int iter; 

( set_regress_approx (sp, iter, FULL_SPAN) ; ) 


void set_last_approx (sp, iter) 
search_ *sp; 
int iter; 

( set_regress_approx (sp, iter, PARTIAL_SPAN) ; ) 

/** QG: quadratic-gradient approximation **/ 
void set_qg_approx (sp, iter) 
search_ *sp; 
int iter; 

{ float sched, margin_scale; 

float xroot = sp->parent->approx.x_root_approx; 
float g = get_g_factor (sp) ; 

iter *= iter; 

if (cmd.xon == YES) ( 

x_root = approx2accu (x_root); 

sched = x_root + (1.0 - x_root) * iter * g; 

) else { 

sched = xroot * (1.0 - iter * g) ; 

} 

if (cmd.xon == YES) sched = accu2approx (sched); 


0 - x_root) * g 
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sp->approx. approx = (sched >« 0.0) ? sched : 0.0; 

) 

/*+ + 

+ RTS* Threshold Setting Routines + 

+ algorithms: + 

+ . naive algorithm. + 

+ . static algorithm: type I & type II + 

+ . predictive algorithm: type I s type II + 

+ + «/ 


void set_rts_threshold (sp, iter, attr) 
search_ *sp; 
int iter; 
iter_attr_ attr; 

1 

switch ( (get_set_th (sp) ) ->alg) ( 

case NAIVE_TH: set_naive_threshold (sp, iter, attr); break; 

case STATIC_TH: set_statlc_threshold (sp, Iter, attr); break; 

case PREDICTIVE_TH: set__predictive_threshold (sp, iter, attr); break; 

default: error ( "set_rts_threshold: no such threshold setting-); break; 

) 


void set_naive_threshold (sp. Iter, attr) 
search_ *sp; 
int iter; 
iter_attr_ attr; 

) 

switch ( (get_set_th (sp) ) ->type) ( 

case TYPE_I : set_lg_threshold (sp, iter, attr); break; 

case TVPE_II: set_gg_threshold (sp. Iter, attr); break; 

case TYPE_III: set_qg_threshold (sp, iter, attr); break; 

default: error ( "set_naive_threshold : no such type-); break; 

) 


/** LG: linear-gradient heuristic **/ 
void set_lg_threshold (sp, iter, attr) 
seapch_ *sp; 

Int iter; 

( domain lb = sp->parent->root_lb; 
domain ub » sp->parent->root ub; 
float g = get_g_factor (sp) ; 
long time - sp->const r. t Ime; 
search_ ‘brother; 
domain th; 

float scale, glub[2j; 

Int count; 
double beta [2 1; 

/** If everything is too tough, simply use it “/ 
sp->constr. bound *■ lb + Iter * g * (ub - lb); 

/** If it is the last one, then use prediction »*/ 

If (attr -- LAST_ITER) l 

if (get_th_vs_time (sp, beta, PARTIAL_SPAN) == YES) ( 
th - beta [01 + beta[l) * loglO ((double) time); 
if (th < sp->constc .bound) sp->constr.bound = th; 

1 

) 


/** check whether there Is no change In upper bound, 

** If there Is no change, then It implies that good suboptimum is found. **/ 
If (cmd.nparam >= 7) ( 

sscanf (* (cmd.param+6) , -%f", fiscale); 
glublOl = glub(l) = huge_float; 
count = 0; 

for (brother - sp->brother; brother; brother - brother->brother) 

If (is_feasible_time (gettlme (brother))) ( 
glub[count-t + ) = (float) (brother->glub) ; 

If (count >= 2) break; 

) 

if (glub(l) !° huge_f loat ) 

If (glub[l) - glub[0) < glub[0| * scale) 

/** If the upper bounds changes only a little bit, 

** then It Is likely that upb Is very close to optimum. **/ 
sp->constr. bound ° glub(0); 

I 

put_threshold (sp, sp->constr. bound); 


/** GG: geometric-gradient heuristic **/ 
void set_gg_threshold (sp, iter, attr) 
search_ *sp; 
int iter; 

( domain lb = sp->parent->root_lb; 
domain ub = sp->parent->root^_ub; 
float g - get_g_factor (sp) ; 
long time = sp->constr.time; 
search_ ‘brother; 
domain th; 

float scale, glub[21; 
int count; 
double beta [2); 

Int factor = 1; 

if (iter > 2) ( 

for ( — iter; Iter > 0; — iter) factor *- 2; 
iter = factor; 

1 

/“ if everything is too tough, simply use it **/ 
sp->constr. bound = lb + iter ‘ g * (ub - lb); 

/** If It Is the last one, then use prediction **/ 
if (attr — LAST_ITER) I 

if (get _th_vs_tlme (sp, beta, PART1AL SPAN) =■= YES) t 
th - beta[0| * beta[l| * loglO ((double) time) ; 
if (th < sp->constr. bound) sp->constr. bound = th; 

I 

I 

/“ check whether there is no change in upper bound, 

“ if there is no change, then it implies that good suboptimum is found. “/ 
if (cmd.nparam >- 7) ( 

sscanf (* (cmd.param+6) , -%f“, sscale); 
glub(0( = glub[ 1 ) = huge_float; 
count =0; 

for (brother = sp->brother; brother; brother = brother->brother) 
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if (is__feasible_time (get__time (brother))) { 
glub [count++] = (float) (brot her->glub) ; 
if (count >= 2) break; 

} 

if (glubfl) != huge_float) 

if (giubflj - glubfOJ < glubfO] * scale) 

/** if the upper bounds changes only a little bit, 

** then it is likely that upb is very close to optimum. **/ 
sp->constr .bound = glub[0); 

) 

put_threshold (sp, sp->constr .bound) ; 


/** QG: quadratic-gradient heuristic **/ 
void set_qg_threshold (sp, iter, attr) 
search_ *sp; 
int iter; 

{ domain lb ** sp->parent->root lb; 
domain ub = sp->parent->root_ub; 
float g * get_g_factor (sp) ; 
long time = sp->const r. time; 
search_ ‘brother; 
domain th; 

float scale, glub [21; 
int county- 
double beta [2]; 

iter *= iter; 

/** if everything is too tough, simply use it **/ 
sp->constr. bound ** lb + iter * g * (ub - lb); 

/** if it is the last one, then use prediction **/ 
if (attr **» LAST__ITER) ( 

if (get__t h_vs_t ime (sp, beta, PARTI AL_SPAN) == YES) { 
th = beta[0] + beta(l) * loglO ((double) time); 
if (th < sp->constr .bound) sp-r>constr .bound = th; 

) 

1 

/** check whether there is no change in upper bound, 

** if there is no change, then it implies that good suboptimum is found. **/ 
if (cmd.nparam >= 7) { 

sscanf (* (cmd.param+6) , ’'if", &scale) ; 
glub[0] *= glub[l) = huge_float; 
count *= 0; 

for (brother “ sp->brother; brother; brother = brother->brother ) 
if (is_feasible_t ime (get_time (brother))) ( 
glub[count++) = (float) (brother->glub) ; 
if (count >= 2) break; 

} 

if (glub[l] != huge_float) 

if (glubll] - glub[0] < glub[0) * scale) 

/** if the upper bounds changes only a little bit, 

** then it is likely that upb is very close to optimum. **/ 
sp->constr. bound = glub[0J; 

) 

put_threshold (sp, sp->constr. bound) ; 


/** used concurrently with approx/accu **/ 
void set_stat ic_t hreshold (sp, iter, attr) 
sea rch_ *sp; 
int iter; 
iter_attr_ attr; 

1 

switch ( (get_set_th (sp) ) ->type) ( 

case TYPEI: set_pr_t hreshold (sp, iter, attr); break; 

case TYPEII: set_mg_t hreshold (sp, iter, attr); break; 

default: error ("set_static_threshold: no such type**); break; 

1 

\ 

/** used concurrently with approx/accu **/ 
void set_pr_t hreshold (sp, iter, attr) 
search_ *sp; 
int iter; 
iter_attr_ attr; 

( float this * (float) getpredictedglub (sp, iter, attr); 
float prev * (float) sp->brother->glub; 
float r = get_r_f actor (sp) ; 
float shed; 
double num, den; 

num - loglO ((double) (1.0 - cmd. cut^ratio + and. cut_ratio * r) ) ; 
den = loglO ((double) r); 

shed = (prev + (this - prev) * num / den) / (1.0 + sp->approx. approx) 

if (sp->constr. bound > shed) sp->constr .bound = shed; 
put_threshold (sp, sp->constr. bound) ; " 


/** used concurrently with approx/accu **/ 
void set_mg_t hreshold (sp, iter, attr) 
search_ *sp; 
int iter; 
iter_attr_ attr; 

( search_ ‘brother = sp->brother; 

domain prev^th a get_threshold (sp->brother) ; 
domain prev__glub = sp->brother->glub; 
float g = get_g_factor (sp) ; 
float up, low, delta; 

low - tofloat (prev_glub) / (1.0 + brot her->approx. approx) ; 
up - tofloat (prev_glub) / (1.0 + sp->approx. approx) ; 
delta * up - low; 

if (prev_th < low) sp->constr .bound = low + iter * g * delta; 
else sp->constr .bound = prev_th + g * delta; 

if (sp->constr .bound > up) sp->constr .bound = up; 
put_threshold (sp, sp->constr .bound) ; 


void set_pred let ive_t hreshold (sp, iter, attr) 
search_ *sp; 
int iter; 
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iter_attr_ attr; 

{ 

switch ( (get_set_th (sp) ) ->type) ( 

case TYPE_I: set_f r_threshold (sp, iter, attr); break; 

case TYPE_II : set_ld_threshold (sp, iter, attr); break; 

default: error ("setpredict i ve_threshold: no such type"}; break; 

1 

I 


/** th vs time **/ 

void set_fr_threshold (sp, iter, attr) 
search_ * spl- 
int iter; 
iter_attr__ attr; 

{ domain lb « sp->parent->root_lb; 
domain ub ** sp->parent->root ub; 
float g = get_g_factor (sp) ; 
long this_time, time; 
double beta (2 ) ; 

/** if everything is too tough, simply use it **/ 
sp->constr. bound = lb + iter * g * (ub - lb); 

/** if it is the last one, then use prediction **/ 
if (attr LAST_ITER) ( 

if (get_th_vs_t ime (sp, beta, PARTI AL_SPAN) == YES) ( 
time “ sp->constr .t ime; 

sp->constr. bound = beta(O) + beta(l) * loglO ((double) time); 
if (sp->constr. bound <= sp->brother->constr. bound) 

sp->constr. bound = sp->brother->constr. bound + g * (ub - lb); 

1 

else if ( ge t_t h_v s_t i me (sp, beta, FULL_SPAN) == YES) ( 
this_time = get_r__factor (sp) * get_time (sp->brother) ; 
if (this_time > sp->const r . time) this_time ** sp->constr .t ime; 
sp->constr. bound = beta(O) + beta[l) * loglO ((double) this_time) ; 
if (sp->constr. bound < sp->brother->const r . bound) 

sp->constr. bound = sp->brother->const r . bound + g * (ub - lb); 

) 

put_t hreshold (sp, sp->constr .bound) ; 

) 


/** lowb' s bin vs time **/ 
void set_ld_threshold (sp, iter, attr) 
search_ *sp; 
int iter; 
iter_attr_ attr; 

{ search^ ‘brother = sp->brother; 
domain lb = s‘p->parent->root_lb; 
domain ub = sp->parent->root_ub; 
long this_time, time; 
double beta (2) ; 
float g •» get_g_factor (sp) ; 

/** if everything is too tough, then simply use it **/ 
sp->constr . bound *= lb + iter * g * (ub - lb); 

/** if it is the last one, then use prediction **/ 
if (attr LAST_ITER) ( 

if (get_bin_vs_t ime (sp, beta, PARTIALjSPAN) »= YES) { 


time = sp->constr .time; 

sp->constr. bound *» beta(O) + beta(l) * loglO ((double) time); 
if (sp->constr. bound < sp->brother->constr. bound) 

sp->const r. bound = sp->brother->constr . bound + g * (ub - lb); 

1 

1 

eise if (get_bin_vs_t ime (sp, beta, FULL_SPAN) -- YES) ( 
this time = get_r_factor (sp) * get_time (brother); 
if (this_time > sp->constr.time) this_time = sp->constr .time; 
sp->constr. bound = beta[0] + beta[l] * loglO ((double) this^time); 
if (sp->constr. bound <= sp->brother->constr .bound) 

sp->constr. bound = sp->brother->constr. bound + g * (ub - lb); 

) 

put_threshold (sp, sp->constr. bound) ; 

) 


/* + 

♦ RTS* Library Routines + 

+*/ 


set_th_ *get_set__th (sp) 

search_ *sp; 
i 

switch (sp->algorithm) ( 
case uRTS: 
case bRTS ; 
case hRTS : 
case uIRD: 
case bIRD: 
default : 

1 

return NULL; 

) 


domain get_predicted_glub (sp, iter, attr) 
search_ *sp; 
int iter; 
iter_attr_ attr; 

( span_ span « (attr == LAST_ITER) ? PARTIALJSPAN : FULL_SPAN; 
float step, this_time; 
double beta [2 ) ; 
domain prev, prev_prev; 

if (get_glub_vs t ime (sp, beta, span) == YES) { 

thistime - get_r_f actor (sp) * get_time (sp->brother) ; 

return ((domain) (beta(O) + beta[l) * loglO ((double) t his_time) ) ) ; 

) 

/* if situation is too tough to handle, simply use naive glub */ 
if (iter == 1) { 

step * get_g_factor (sp) * (sp->parent->root_ub - sp->parent->root_lb) 
this_time = sp->parent->root ub - step; 

} else { 

prev = sp->brother->glub; 

if (sp->brother->brother) prev_prev = sp->brother->brother->glub; 
else prev_prev =* sp->parent->root_ub; 
this_tlme = prev - (prev__prev - prev); 

) 


return sp->alg. urts->set_th; break; 

return sp->alg.brts->set_th; break; 

return sp->alg.hrts->set_th; break; 

return sp->alg.uird->set_th; break; 

return sp->alg.bird->set_th; break; 

error ("get_set_th: no such algorithm"); break; 
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return ({domain) this_time); 


yesno_ get_bin_vs_t ime (sp, beta, span) 
search_ ‘sp; 
double beta[); 
span_ span; 

{ search_ ‘brother = sp->brother; 
domain th, exp_opt, ‘calibrate; 
set_th_ *set_th; 
long ‘bin, num; 

double x__sum = 0.0, y_sum = 0.0, x2_sum = 0.0, xy sum = 0.0, x, y, det; 
int nbin, n, i; 

if (brother NULL) return NO; 

if (is_feasible_t ime (get__time (brother))) | 
th = get_threshold (brother); 

exp_opt - (domain) (brother->glub / (1.0 + get_approx (brother) )) ; 
th » min (th, exp_opt); 

set_th «=* get_set_th (brother) ; 
nbin - set__th->nbin; 
bin - set_th->bin; 
calibrate - set_th->calibrate; 

/* first-order regression over bins, x is Inodes, y is lowb val */ 
for (n = i = 0; i < nbin && * (cal ibrate+i ) <= th; i++) ( 
num - * (bin+i) ; 

if (num < MinValidBin) continue; 
n+ + ; 

x - loglO ((double) num); 

y - (double) * (calibrate+i) ; 

x_sum +» x; 

y_sum + = y; 

x2_sum += (x * x) ; 

xy_sum += (x * y) ; 

) 

if (n <= 1) return NO; 

det = todouble (n) * x2_sum - x_sum * as urn ; 

if (tofloat (det) ==* 0.0) return NO; 

beta[0) = (x2_sum * y_sum - x_sum * xy_sum) / det; 

beta(l) = (- x_ sum * y_sum + todouble (n) * xy sum) / det; 

if (tofloat (beta[lj) =«= 0.0) return NO; 
return YES; 


return NO; 


yesno__ get_th_vs_t ime (sp, beta, span) 
search_ *sp; 
double beta ( } ; 
span__ span; 

( search_ ‘brother; 

double x_sum = 0.0, y_sum = 0.0, x2_sum = 0.0, xy_sum - 0.0, x, y, det; 
long time; 
int n = 0; 

/* skip infeasible regression */ 


if (checkspan (sp, span) *** NO) return NO; 

/* first-order regression over bins, x is Inodes, y is lowb val */ 
for (brother = sp->brother; brother; brother = brother->brother) ( 
time “ get_time (brother); 
if (is _feasible_time (time)) { 
n+ + ; 

x » loglO ((double) time); 

y = (double) get_threshold (brother) ; 

x_sum +■= x; 

y_sum ♦ = y; 

x2_sum += (x * x) ; 

xy_sum += (x * y) ; 

) else break; 


det = todouble (n) * x2_sum - x_sum * x_s um ; 

if (tofloat (det) — 0.0) return NO; 

beta(0) * (x2_sum * y_sum - x_sum * xy_sum) / det; 

beta[l] = (- x_sum * y_sum + todouble (n) * xy_sum) / det; 

if (tofloat (beta [1 ) ) -» 0.0) return NO; 
return YES; 


yesno_ get_glub_vs__t ime (sp, beta, span) 
search_ *sp; 
double beta(]; 
span_ span; 

( search_ ‘brother; 

double x sum = 0.0, y_sum = 0.0, x2_sum = 0.0, xysum ° 0.0, x, y, det 
long time; 
int n = 0; 

/* skip infeasible regression */ 
if (checkspan (sp, span) NO) return NO; 

/* first-order regression over bins, x is Inodes, y is lowb val */ 
for (brother ■= sp->brother; brother; brother *= brother->brother ) { 
time = get_time (brother); 
if (is_feasible_time (time)) { 
n++; 

x = loglO ((double) time); 

y « (double) brot her->glub; 

x_sum += x; 

y_sum += y; 

x2_sum +*» (x * x) ; 

xy_sum += (x * y) ; 

) else break; 

} 

det = todouble (n) ‘ x2_sum - x_sum * x_sum; 

if (tofloat (det) == 0.0) return NO; 

beta(0) = (x2_sum * y_sum - x_sum * xy_sum) / det; 

beta(l] = (- x_sum * y_sum + todouble (n) * xy_sum) / det; 

if (tofloat (beta (1 ) ) == 0.0) return NO; 
return YES; 


yesno_ get_approx_vs_t ime (sp, beta, span) 
search_ *sp; 
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double beta(); 
span_ span; 

{ search^ ‘brother; 

double x_sum = 0.0, y_sum = 0.0, x2_sum - 0.0, xy sum = 0.0; 
double x, y, det; ~ 

long time; 
int n = 0; 

/* skip infeasible regression */ 
if (check_span (sp, span) == NO) return NO; 

/* first-order regression over bins, x is #nodes, y is lowb val */ 
for (brother * sp->brother; brother; brother = brother->brother ) { 
time « get_time (brother); 
if (is_feasible_t ime (time)) ( 
n++; 

x = loglO ((double) time); 

y = (double) get_approx (brother); 

x_sum += x; 

y__sum +» y; 

x2_sum += (x * x) ; 

xy_sum += (x * y) ; 

} else break; 

} 

det *= todouble (n) * x2__sum - x__sum * x_s um ; 

if (tofloat (det) == 0.0) return NO; 

beta[0] = (x2_sum * y_sum - x_sum * xy_sum) / det; 

beta [ 1 ) = (- x_sum * y_sum + todouble (n) * xy_sum) / det; 

if (tofloat (beta [1 ) ) == 0.0) return NO; 
return YES; 


yesno_ get_accu_vs_t ime (sp, beta, span) 
search_ ‘sp; 
double beta(); 
span__ span; 

( search^ ‘brother; 

double x_sum = 0.0, y_sum = 0.0, x2_sum = 0.0, xy_sum = 0.0; 

double x, y, det; ~ 

long time; 

int n - 0; 

float a; 

/* skip infeasible regression */ 
if (check__span (sp, span) == NO) return NO; 

/* first-order regression over bins, x is inodes, y is lowb val */ 
for (brother = sp->brother; brother; brother = brot her->brother) ( 
time = get_time (brother); 
if (is_feasible_t ime (time)) ( 
n++; 

a = get_approx (brother); 
a = approx2accu (a) ; 
x = loglO ((double) time); 
y = todouble (a); 
x_sum += x; 
y_sum += y; 
x2_sum += (x * x) ; 
xy_sum += (x * y) ; 

} else break; 

) 


det = todouble (n) * x2_sum - xsum * xsum; 

if (tofloat (det) 0.0) return NO; 

beta(0) = (x2_sum * y_sum - x__sum * xy_sum) / det; 

bet a ( 1 ) = (- x_sum * y_sum + todouble (n) * xy_sum) / det; 

if (tofloat (beta [1)) == 0.0) return NO; 
return YES; 


yesno_ get_glub_vs_approx (sp, beta, span) 
search_ *sp; 
double beta ( ] ; 
span_ span; 

( search_ ‘brother; 

double x_sum - 0.0, y_sum =0.0, x2_sum = 0.0, xy_sum ~ 0.0, x, y, det; 
int n = 0; 

/‘skip infeasible regression */ 
if (check_span (sp, span) — NO) return NO; 

/* first-order regression over bins, x is inodes, y is lowb val */ 
for (brother * sp->brother; brother; brother ° brother->brother) 
if (is_feasible_t ime (get_time (brother))) ( 
n++; 

x - (double) brother->approx. approx; 

y » (double) brother->glub; 

x_sum += x; 

y_sum +» y; 

x2_sum +» (x * x) ; 

xysum +» (x * y) ; 

} else break; 

det » todouble (n) * x2_sum - x_sum * xsum; 

if (tofloat (det) — 0.0) return NO; 

beta(0) = (x2 sura * y_sum - x_sum * xy_sum) / det; 

beta (11 ** (- x_sum * y_sum + todouble (n) * xy_sum) / det; 

if (tofloat (beta (11) — 0.0) return NO; 
return YES; 


yesno_ check_span (sp, span) 
search_ *sp; 
span_ span; 

1 search^ ‘brother; 
int count = 0; 

for (brother = sp->brother; brother; brother = brot her->brother) 
if (is_feasible_t ime (get_time (brother))) count++; 
else break; 

if (span == FULL_SPAN) return (count >= 2 ? YES : NO); 
else return (count >=* 3 ? YES : NO); 


void reset_th_environ (sp) 
search_ *sp; 

1 set_th_ *set_th « get_set_th (sp) ; 

/* reset pnviron for predicting threshold */ 
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switch (set_th->alg) I 

case NAIVE_TH: break; 

case STATIC_TH; break; 

case PREDICTIVE_TH: reset_th_bin (sp) ; break; 

default: error ("set_rts_threshold: no such threshold setting"); break; 

) 

) 


void reset_th_bin (sp) 
search_ *sp; 

( set_th_ *set_th - get_set_th (sp) ; 

Int nbin - set_th->nbin, 1; 
long "bin * set_th->bin; 
domain ‘calibrate » set_th->calibrate; 
domain abs_lb = sp->parent->root_lb; 
domain abs_ub = sp->parent->root ub; 
float step; 

/* reset bin and set the calibration of bins */ 

step = (float) (abs_ub - abs lb) ; 

step /» tofloat (nbin); 

for (i = 0; 1 < nbin; i++) ( 

* (bin+i) = 0; 

* (calibrate+i) - abs_lb + (domain) (step * 1); 

) 


void enter_th_bin (sp, lowb) 
search_ *sp; 
domain lowb; 

( sec_th_ *set_th - get_set_th (sp) ; 
int nbin = set_th->nbin, 7; 
domain ‘calibrate « set_th->calibrate; 

for (i = 0; i < nbin ss • (cal lbrate+i ) < lowb; ii + ) ; 
if (1 ““ nbin) i = nbin - 1; 

+ + (* (set_th->bin+i) ) ; 


void set_th_entry (sp, node) 
search_ *sp; 
node_ ‘node; 

{ 

switch ( (get_set_th (sp) ) ->alg) ( 

case NAIVE_TH: break; 

case STATIC_TH : break; 

case PREDICTIVE_TH: enter_th_bin (sp, node->lowb); break; 

default: error ("set_th_entry: no such threshold algorithm"); break; 

) 

I 


float get_g_factor (sp) 
search_ *sp; 

( float g; 

switch (sp->algorithm) ( 

case uRTS: g = sp->alg . urt s->g_factor; break; 

case bRTS: g = sp->alg.brts->g_factor; break; 

case hRTS: g = sp->alg.hrts->g_factor; break; 

case uIRD: g - 1 sp->alg . uird->g_factor; break; 

case bIRD: g = sp->alg.bird->g_factor; break; 


I 


default: error ("get_g_factor: no such algorithm"); break; 


lifdef GRADIENT_STEP 

if (g == 0.0 | | g == huge_float) g = 0.1; 
g = 1.0 / g; 

• else 

if (g »» hugefloat) g = 0.1; 
lendi f 

return g; 

I 


float get_r_f actor (sp) 
search_ *sp; 

{ search_ ‘p; 

float rsum = 0.0, r; 
int count; 

switch (sp->algorithm) ( 

case uRTS: r • sp->alg. urts->r_factor; break; 

case bRTS: r = sp->alg.brts->r_factor; break; 

case hRTS: r - sp->alg.hrts->r_factor; break; 

case uIRD: r = sp->alg. ulrd->r_factor; break; 

case bIRD: r - sp->alg.bird->r_factor; break; 

default: error (“get r_factor: no such algorithm"); break; 

I 

if (r ~ hugefloat) ( /* growth ratio is not specified */ 
if ( (p - sp->brother) ) 

for (count » 0; p->brother; p - p->brother, count++) 

r_sum +- (((float) get_time(p)) / ((float) get_time (p->brother) ) ) ; 
r » count ? r_sum / ((float) count) : 2; 

I 

return r; 

I 

lter_attr_ get_iteratlon_attrlbute (sp, iter) 
search_ *sp; 
int iter; 

( long prev_tlme, this_time, curr_tlme, Tconstr; 
float r = get_r_factor (sp) ; 

if (iter > 1) ( 

prevtlme - get_tlme (sp->brother) ; 
thistime - r * prevtlme; 
currtlme = gett ime (sp->parent ) ; 

Tconstr « sp->parent->const r. t ime; 

if (curr time + 2 * this_time >= Tconstr) return LAST_ITER; 
if (curr~tlme + (1+r) * this_time >- Tconstr) return LAST_2ND_ITER; 

) 

return OTHER_ITER; 

I 


algorlthm/tca.c 


/* Time-Constrained A* search algorithms. 
* TCA-<sTCA,pTCA,dTCA> 

*/ 
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/* sTCA: stcaalgorithm (search_ *sp) */ 
void stca_a 1 gori thm (sp) 
search_ *sp; 

{ search_ *child_sp; 
search_message_ msg; 
int n = 0; 

sp->approx . achieved = sp->approx . root_approx; 

child_sp = create_child_search (sp) ; 

put_chi ld_constr (child_sp, sp, 1.0, 1.0, 1.0); 

set_search_message (&msg, FRESH_START, NULL, NO, cmd.pf.rt, cmd.pf.st); 
while (1) { 

chi ld__sp->approx. approx = get_st ca_next_approx (sp, ++n) ; 
if (cmd.xon »■> YES) 

chi ld_sp->approx. accu = approx2accu (child_sp->approx .approx) ; 
if (bf s_primiti ve (chi ld_sp, sp, 4msg) ■» SEARCH_IS_ABORTED) break; 
eval_final_approx (child_sp) ; 
merge_stat_to_parent (child_sp, sp) ; 
merge_approx_to_parent (child_sp, sp) ; 
merge_sol__to_parent (child_sp, sp) ; 
if (chi ld_sp->approx. approx <= 0.0) break; 

(sp->child » childsp = create_brother_search (chi ld_sp) ) ->parent * sp; 
put_child_constr (child^sp, sp, 1.0, 1.0, 1.0); 
inherit_sol_f rom_parent (child_sp, sp) ; 

) 

merge_stat_to_pa rent (chi ld_sp, sp) ; 
merge_sol_to_parent (child_sp, sp) ; 
if (get_approx (child_sp) < sp->approx .achieved) { 
merge_approx_to_parent (child_sp, sp) ; 

) 


float get_stca_next_approx (sp, n) 

/* a = aO * (1 - n * g) ; a = (a < 0) ? 0 : a; */ 
search_ *sp; 
int n; 

{ float new_a; 

if (cmd.xon — YES) ( 

/* accuracy-driven */ 

new_a = sp->approx. root_accu * 

(1.0 - tofloat (n) * sp->alg. stca->g_factor) ; 

new_a = accu2approx (new_a); 

) else ( 

/* approx -driven */ 

new_a = sp->approx . root_approx * 

(1.0 - tofloat (n) * sp->alg. stca->g_factor) ; 
I 

if (new_a < 0.0) new_a =0.0; 
return new_a; 


/* pTCA: pt ca_a Igor it hm (search__ *sp) */ 
void ptca_a Igor i thm (sp) 
search_ *sp; 

( const r_ save__constr; 
search_message_ msg; 
ptca_ *ptcap = sp->alg. pt ca; 
float s; 

sp->approx. achieved = sp->approx. root_approx; 


s = ptcap->s_factor; 

i ni t_regress_struct (4 (ptcap-> regress) ) ; 

setsearchmessage (4msg, FRESH_START, 4 (ptcap->regress) , NO, 
cmd.pf.rt, cmd.pf .st) ; 
saveconstr = sp->constr; 

/* nTCA 4 profiling parts */ 
set_stop_constr (sp, s, s, s); 
bfs_primitive (sp, NULL, 4msg) ; 

/* prediction part */ 
alg_pf_predict (sp, 4 (ptcap->regress) ) ; 

sp->approx. approx = sp->approx. predicted * pt cap->c_factor; 

/* solution part */ 

sp->constr = save_constr; 

msg. style = RESUME; 

msg.rp *» NULL; 

bfs_primitive (sp, NULL, 4msg) ; 

eval_f inal_approx (sp) ; * 


/* dTCA; dt ca_a Igor 1 thm (sea rch_ *sp) 4 dtca_ent ry (search_ *sp) */ 
void dtcaalgorithm (sp) 
search_ *sp; 

( const r_ save_constr; 
search_message_ msg; 
dtca_ *dtcap = sp->alg.dtca; 
float s; 

sp->approx. achieved = sp->approx. root_approx; 
s = dtcap->s_factor; 

init_regress_struct (4 (dtcap-> regress) ) ; 
saveconstr = sp->constr; 
setstopconstr (sp, s, s, s); 

set__search_message (4msg, FRESH_START, 4 (dtcap->regress) , NO, 
cmd.pf.rt, cmd.pf. st); 
bfsprimitive (sp, NULL, 4msg) ; 
algpfpredict (sp, 4 (dtcap->regress) ) ; 

sp->approx. approx = sp->approx. predicted * dtcap->c_f actor; 

sp->constr = save_constr; 

msg. style » RESUME; 

msg.alg_entry = YES; 

bfs_primltive (sp, NULL, 4msg) ; 

eval_f inal_approx (sp) ; 


void dtca_ent ry (sp) 
search_ *sp; 

( float temp; 

alg_pf_predict (sp, 4 (sp->alg.dtca-> regress) ) ; 

temp = sp->approx .predicted * sp->alg .dtca->c_factor; 

/* approx can only go up and can not go down */ 
if (sp->approx. approx < temp) sp->approx. approx «* temp; 


a Igor it hm/t cgd. c 


/* Time-Constrained GDFS algorithms. 
* TCGD=<sTCGD, pTCGD> 

*/ 
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/* sTCGD : st cgd_algorithm (search_ *sp) */ 
void stcgd_algorithm (sp) ' 

search_ *sp; 

{ search_ *child_sp; 
search_message_ msg; 
int n «= 0; 

sp->approx. achieved = sp->approx . root_approx; 
child_sp *=* create_child_search (sp) ; 
put_child_constr (child_sp, sp, 1.0, 1.0, 1.0); 

set_search_message (&msg, FRESH_START, NULL, NO, cmd.pf.rt, cmd.pf.st); 
while (1) { 

chi ld_sp->approx. approx = get_st cgd_next_approx (sp, ++n) ; 
if (cmd.xon »«= YES) 

child_sp->approx. accu = approx2accu (child_sp->approx. approx) ; 
if (gdfs_primitive (child_sp, sp, &msg) == S EA RC H__I S__A BORT ED ) break; 
eval_f inal_approx (child_sp) ; 
merge_stat_to_parent (child_sp, sp) ; 
merge_approx_to_parent (child_sp, sp) ; 
merge_sol_j:o_parent (child_sp, sp) ; 
if (chi ld_sp->approx. approx <= 0.0) break; 

(sp->child » child sp * create_brother_search (child_sp) ) ->parent = sp; 
putsch ild_con st r (chlld_sp, sp, 1.0, 1.0, 1.0); 
inherit_sol_from_parent (child_sp, sp) ; 

) 

merge_stat_to_parent (child_sp, sp) ; 
merge_sol_to_parent (chi ldsp, sp) ; 
if (get_approx (child_sp) < sp->approx. achieved) ( 
merge_approx to_parent (child_sp, sp) ; 

) 

) 


float get_stcgd_next_approx (sp, n) 

/* a = aO * (1 - n * g) ; a * (a < 0) ? 0 : a; */ 
search_ *sp; 
int n; 

[ float new_a; 

if (cmd.xon == YES) ( 

/* accuracy-driven */ 

new_a = sp->approx. root_accu * 

(1.0 - tofloat (n) * sp->alg.stcgd->g_factor) ; 

new_a = accu2approx (new_a) ; 

) else ( 

/* approx-driven */ 

new_a = sp->approx. root_approx * 

(1.0 - tofloat (n) * sp->alg.stcgd->g_factor) ; 

} 

if (new__a < 0.0) new_a = 0.0; 
return new a; 


/* pTCGD: ptcgd_algorithm (search_ *sp) */ 
void ptcgd_algorithm (sp) 
search_ *sp; 

{ sea rch_ *child__sp; 
constr_ save_constr; 
search_message__ msg; 
ptcgd_ *ptcgdp = sp->alg. ptcgd; 
float s; 
int n = 0 ; 


sp->approx. achieved = sp->approx. root_approx; 
s = ptcgdp->s_f actor; 

initregress struct (& (ptcgdp->regress) ) ; 

set_search_message(smsg, FRESH_START, NULL, NO, cmd.pf.rt, cmd.pf.st); 

/* create search struct for sTCGD */ 
child sp = create_child_search (sp) ; 
putchildconstr (child sp, sp, s) ; 

/* sTCGD & profiling part */ 
while (1) l 

chi ld_sp->approx. approx = get_stcgd_next_approx (sp, ++n); 
if (cmd.xon == YES) 

child_sp->approx.accu *■ approx2accu (chi ld_sp->approx .approx) ; 
if (gdf s_primit ive (child_sp, sp, &msg) == SEARCH_IS_ABORTED) break; 
eval_final_approx (child_sp) ; 
merge_stat_to_parent (child_sp, sp) ; 
merge_approx_to_parent (child_sp, sp) ; 
merge sol to parent (child_sp, sp) ; 
if (chi ld_sp->approx. approx <= 0.0) break; 
algpf (child_sp, & (sp->alg.ptcgd->regress) ) ; 
save_constr *» chi ld_sp->constr; 

(sp->child = child_sp « create_brother_search (chi ld_sp) ) ->parent - sp; 
chi ld_sp->constr * save_constr; 
inheritsolf romparent (child_sp, sp) ; 

) 

merge_stat_to_parent (child_sp, sp) ; 

If (get_approx (child_sp) < sp->approx. achieved) ( 
merge_approx_to_parent (child_sp, sp) ; 
merge_sol_to parent (chi ld_sp, sp) ; 

) 

/* prediction part */ 

algpfpredict (sp, i (pt cgdp->regress) ) ; 

sp->approx. approx ** sp->approx. predicted * ptcgdp->c_factor ; 

/* solution part */ 
gdfsprimit ive (sp, NULL, imsg) ; 
eval_final_approx (sp) ; 
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primit ive/band . c 


/* return SEARCH_IS_COMPLETED, search is completed; 

* return SEARCH_IS_ABORTED, search is aborted due to constraints. 

V 

search_ending_ band_primit ive {sp, offset_sp, msgp) 
search_ *sp, *offset_sp; 
search_message_ *msgp; 

{ node_ * node, ‘children, ‘child, *p, *temp, ‘tempo, *next_child, ‘new list; 
i nt i ; 

solution^ ‘sol; 

yesno_ bound_dom, to_update glib; 
float GUIDE_H {); 

# if def HARE_GUI DANCE 
domain g_cost; 
lendi f 

# if def DEBUG 

if (cmd. debug >= 2) printf ("\nenter band_primit ive\n") ; 

if (cmd. debug >« 1) printf ( u bw_fx=%s\n", dbg_bw_fx (cmd .bw_fx] ) ; 

lendif 

times (&start_t ime) ; 
last_time start time; 
if (msgp->style FRESH_START) { 
idpd_init (); 

put_band_node (create_root (sp) , sp) ; 

} 

while ((node = get_band_node (sp) ) ) ( 

# if def HARE_GUIDANCE 

g_.cost = node->g_cost; 

lendif 

if (is_bounded (node, sp) ) { 
sp->stat . bounded++; 
free_node (node); 
continue; 

J 

to_update_gl lb = (sp->gllb ==■ node->lowb) ? YES : NO; 
eval_rt_approx (sp) ; 
update_stat (sp) ; 

if (msgp->rt_pf == YES) pf_run_time (sp, of fsetsp) ; 
if (msgp->st_pf == YES) pf_space_vs_t ime (sp, offset_sp); 
if (i s_const r_viola ted (sp) ) return S E A RC H_I S_A BORT ED ; 
if (msgp->rp) alg_rt_pf (sp, msgp->rp) ; 
if (msgp->alg_entry == YES) alg_entry (sp, node) ; 

* if def DEBUG 

if (cmd. debug >= 2) debug_node ("Xnexpand", node, sp) ; 
lendif 

/“ expand will return a list of children “/ 
if ((children = expand (node, ALL_CHILDREN, DONT_CARE) ) ) 
sp“>stat . expanded++; 
free_node (node) ; 

lif defined (L0WB_GUIDANCE) || defined (UPB_GUIDANCE) || defined (UGDFS) || defined 
E_GUI DANCE) 

# define BOUND GUIDANCE 


•endif 


new_list = NULL; 

for (child = children; child; child = next_child) ( 
sp->stat .generated**-; 
next_child = child->brother; 

bound_dom = YES; /** lnit skip **/ 

if (is_infeasible (child)) ( 

lifdef DEBUG 

if (cmd. debug >= 3) printf ("infeasible\n") ; 

I endif 

sp->stat . infeasible**; 
free_node (child); 
continue; 

) 

lifdef DEBUG 

if (cmd. debug >= 3) printf (“eval bounds\n M ); 
lendif 

evaluat e_lower_bound (child); 

sol - evaluat e_upper_bound (child, get_sol_buf ()); 

lifdef DEBUG 

if (cmd. debug >= 3) debug_node (NULL, child, sp) ; 

lendif 

if (child->upb < sp->glub) ( 

lifdef DEBUG 

If (cmd. debug >= 3) printf ("update incumbent \n") ; 

•endif 

sp- > glub = child->upb; 
eval_rt_approx (sp) ; 
free_sol_buf (sp->incumbent ) ; 
sp-> incumbent a sol; 
bounding (sp) ; 
dominating (child, sp) ; 

bounddom - NO; /** skip over bounded & dominated tests **/ 
else free_sol_buf (sol); 
if (is_feasible_or_equiv (child)) ( 

lifdef DEBUG 

if (cmd. debug >= 3) printf ("feasible\n") ; 
lendif 

sp->stat . feasible**; 
free_node (child) ; 
continue; 

} 

if (isbounded (child, sp) ) { 

lifdef DEBUG 

if (cmd. debug >= 3) printf ("bounded\n") ; 
lendif 

sp->stat . bounded**; 
free node (child); 
continue; 

} 

if (bound_dom == YES) ( 

if (isdominated (child, sp) ) ( 


lifdef DEBUG 
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if (cmd. debug ><= 3) printf ("dominated\n") ; 
lendif 

sp->stat .dominated!-*; 
free_node (child); 
continue; 

I 

) 

if ( is_hard_bounded (child, sp) ) ( 

lifdef DEBUG 

if (cmd. debug >= 3) printf (*‘bounded\n") ; 
lendif 

if (Next_IDA_Threshold > child->lowb) 
Next_IDA_Threshold = chi ld-> lowb; 
sp->stat . hard_bounded++; 
free_node (child) ; 
continue; 

} 

/** by non-leaf, lousy-upper-bound node **/ 
if (bound_dom *=« YES) dominating (child, sp) ; 

child->next » new_list; 
new_list = child; 

} /** children loop **/ 

children = new_list; 
new_l ist ° NULL; 


new list = child; 

) 

children = new_list; 
lendif BOUND GUIDANCE 


for (child = children; child; child = child->brother) 
child->next = NULL; 


putbandnode (children, sp) ; 


if 


) 


(to_update_gllb =*» YES) ( 

/** set init value for global_lowb **/ 
sp->gllb = sp->glub; 

/** check band priority list **/ 
if (sp->open.btree) 

/** global lowb = a min ( lowb of all active nodes ) **/ 
for (p - sp->open .btree; p; p » p->next) 

if (p->lowb < sp->gllb) sp->gllb - p->lowb; 

/** check young priority lists **/ 

for (i ** sp->band.ceiling_depth; i <** sp->band. f loor_depth; i++) 
if ( (sp->band. tree+i) ->young) 

/** global lowb == min { lowb of all active nodes ) **/ 
for (p * (sp->band. tree+i) ->young; p; p - p->next) 
if (p->lowb < sp->gllb) sp->gllb » p->lowb; 


) /** selection loop **/ 


lifdef BOUND_GU I DANCE 

/** sort these live children by fancy guidance **/ 
for (child » children; child; child = child->next) { 
if (new_list) { 

for (tempo “ temp = new_list; 
temp; 

temp = (tempo » temp) ->brother) { 

I if defined (HARE_GUIDANCE) 

if (GUIDE_H (child->upb, child->lowb, child->depth, 
child->g_cost - g cost) < 

GUIDE_H (temp->upb, temp->lowb, temp->depth, 
temp->g_cost - gcost) ) { 

•elif defined (UPB_GUIDANCE) || defined (UGDFS) 

if (child->upb < temp->upb) ( 
lei if defined ( LOWB_GUI DANCE) 

if (child->lowb < temp->lowb) ( 
lelse /** bad guidance **/ 
if (1) ( 

lendif 

if (temp == new_list) (new_list = child) ->brother « temp; 

else (tempO->brother = chi Id) ->brother = temp; 

break; 

I 

1 

if ( ! temp) (tempO->brother » chi Id) ->brother = NULL; 

) 

else (new_list => child) ->brother = NULL; 

} 

children » new_list; 
lelse DEFAULT_GUIDANCE 

for (child = children; child; child = chi ld->next ) ( 
child->brother = new_list; 


/•• When the search is completed, the global lowb and the global upb 
** should be the same, regardless of approximation is used or not. 

** However, it is not the case, sometimes. 

** One possible reason is that 

** global lowb is supposed to be updated by a feasible sol; however, 
** the feasible sol is freed during the children loop. 

** Therefore, both are coersed to be equal. 

**/ 

sp->gllb - sp->glub; 

/** if (sp->approx. approx *== 0.0) sp->gllb = sp->glub; **/ 
times (&break_t ime) ; 

sp->stat . unix_utime += (break_t ime.tms_ut ime - start_time . tms_utime) ; 
sp->stat . unixstime += (break_time. tms_stirae - start_time.tms_stime) ; 

if (sp->constr. bound !« problem. huge) 

if (sp->glub <= sp->constr. bound) msgp->feaslble = YES; 

return SEARCHISCOMPLETED; 

} /** band primitive **/ 


int bandwidth_f unct ion (depth, init_width) 
int depth, init_width; 

( int width =* init_width; 
static float a, b; 
static int first_entry = 1; 

if (f irst_ent ry) { 
first_entry =0; 
switch (cmd.bw_fx) ( 
case LINEAR_BW: 

a = ((float) (1 - init__width) ) / (problem. size - 1); 
b - init width - a; 
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break; 

case EXP_BW: 

a = ({float) (log ((double) init_width) ) ) / (problem. size - 
break; 

default: break; 

} 

) 

switch (cmd.bw_fx) ( 
case LINEAR_BW: 

width » a * depth + b; 
break; 

case EXP_BW: 

width = init_width * exp ((double) (a * (1 - depth))); 
break; 

case FIXED_BW: 
default: break; 

) 

if (width < 1) width - 1; 
return width; 

) 


primitive/bfs.c 


/* return SEARCH_IS_COMPLETED, search is completed; 

* return SEARCH_IS_ABORTED, search is aborted due to constraints. 
*/ 

search_ending_ bfs_primit ive (sp, offsetsp, msgp) 
search_ *sp, *offset_sp; 
search_message_ *msgp; 

{ node_ *node, ^children, *child, *new_list; 
solution_ *sol; 
yesno_ bound_dom; 
lifdef DEBUG 

if (cmd. debug >= 2) print f ( H \nenter bf s_primi t i ve\n") ; 
lendi f 

times (4 start_t ime) ; 
last_time = start_time; 
if (msgp->sty le == ERESH_START) ( 
idpd_init () ; 

bpt ree_insert (create_root (sp) , sp) ; 

) 

while ((node = bptree_delete (sp) ) ) { 

if (is_bounded (node, sp) ) { 
sp->stat ,bounded++; 
f ree_node (node) ; 
continue; 

) 

sp->gllb = node->lowb; 
eval_rt_approx (sp) ; 

update_stat (sp) ; • 

if (msgp->rt_pf «== YES) pf_run_time (sp, of fset__sp) ; 
if <msgp->st_pf == YES) pf_space_vs_t ime (sp, offset_sp); 


if (is const rviola ted (sp) ) return SEARCH_IS_ABORTED; 
if (msgp->rp) alg rt _pf(sp, msgp->rp) ; 
if (msgp->alg entry == YES) algentry (sp, node); 

1); lifdef DEBUG 

if (cmd. debug >= 2) debug_node ("\nexpand" , node, sp) ; 
fendif 

/* expand will return a list of children */ 
if ((children = expand (node, ALL_CH I LDREN , DONT_CARE) ) ) 
sp->stat .expanded++; 
freenode (node) ; 
newlist = NULL; 

for (child = children; child; child = chi ld->brother) ( 
sp->stat .generated++; 

if (is_infeasible (child) ) { 

I ifdef DEBUG 

if (cmd. debug >= 3) printf ( M infeasible\n°) ; 
lendi f 

sp->stat . infeasible++; 
f ree_node (chi Id) ; 
continue; 

) 

lifdef DEBUG 

if (cmd. debug >= 3) print f ("eval bounds\n") ; 
lend! f 

evaluate_l owe rebound (child) ; 

sol « evaluateupperbound (child, get_sol_buf () ) ; 
lifdef DEBUG 

if (cmd. debug >= 3) debug node (NIL, chi id, sp) ; 
lendi f 

bound_dom = YES; /* init skip */ 

if (child->upb < sp->glub) ( 
lifdef DEBUG 

if (cmd. debug >= 3) print f ("update incumbent\n“) ; 
lendi f 

sp->glub = child->upb; 
eval_rt_approx (sp) ; 
free_sol_buf (sp-> incumbent) ; 
sp~> incumbent » sol; 
bounding (sp) ; 
dominating (child, sp) ; 

bound_dom = NO; /* skip over bounded & dominated 

) 

else free_sol_buf (sol ) ; 

if (is_feasible_or equiv (child) ) { 
lifdef DEBUG 

if (cmd. debug >= 3) print f ( M feasible\n M ) ; 
fendif 

sp->stat . feasible++; 
free_node (chi Id) ; 
cont inue; 

} 

if (isbounded (child, sp) ) { 

lifdef DEBUG 

if (cmd. debug >= 3) printf ("boundedXn") ; 
lendi f 


tests V 


sp->stat .bounded++; 



} / * bfs primitive */ 
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free_node (child) ; 
cont inue; 

} 

if (bound_dom -- YES) | 

if (is_dominated (chi Id, sp) ) { 
lifdef DEBUG 

if (cmd. debug >= 3) print f ("domi nated\n" ) ; 
lendif 

sp->stat .dominated++; 
free__node (child) ; 
continue; 

) 

) 

if (is_hard_bounded (child, sp) ) ( 
lifdef DEBUG 

if (cmd. debug >*= 3) print f (“boundedVn") ; 
lendif 

sp->stat . hard__bounded + + ; 
free_node (child) ; 
continue; 

} 

if (bound_dom == YES) 

dominating (child, sp) ; /* by non-leaf, lousy-upper-bound node */ 

if (new_l ist ) ( 

child->next = new_list; 
new_l ist = child; 

) 

else (new_list = child) ->next - NULL; 

} /* children loop */ 

for (child = new_list; child; child = child->next) 
child->brother = child->next; 

for (child = new_list; child; child = chi ld->brother) ( 
child->next « NULL; 
bptree_insert (child, sp) ; 

J 

} /* selection loop */ 

/* When the search is completed, the global lowb and the global upb 

* should be the same, regardless of approximation is used or not. 

* However, it is not the case, sometimes. 

* One possible reason is that 

* global lowb is supposed to be updated by a feasible sol; however, 

* the feasible sol is freed during the children loop. 

* Therefore, both are coersed to be equal. 

*/ 

/* not true for BFS, sp->gllb = sp->glub; */ 

/** true for BFS, too **/ 
sp->gllb = sp->glub; 

/** if (sp->approx. approx == 0.0) sp->gllb = sp->glub; **/ 
times (&break_t ime) ; 

sp->staf . unix_ut ime +- (break_t ime. tms__ut ime - start_time.tms_utime) ; 
sp->stat . unix_st ime +~ (break_t ime. tms_st ime - start_time . tms_stime) ; 

if (sp->constr .bound !*= problem. huge) 

if (sp->glub <= sp->constr. bound) msgp->feasible = YES; 

return SEARCH_I S_COMP LETED ; 


primitive/dfs .c 


/* return SEARCH_ISjCOMPLETED, search is completed; 

* return SEARCHISABORTED, search is aborted due to constraints. 

*/ 

search_ending_ dfs_primit ive (sp, offset_sp, msgp) 
search_ *sp, *offset_sp; 
search_message_ *msgp; 

( node__ *node, *child; 
solution_ * sol ; 

yesno_ to_update_gllb, first_expanded, bound_dom; 
lifdef DEE^UG 

if (cmd. debug >= 2) print f (“\nenter dfs_primit ive\n") ; 
lendif 

times (&start_time) ; 
last_tlme ** start_time; 
if (msgp->style =- FRESHSTART) ( 
idpd_init () ; 

stackpush (create_root (sp) , sp) ; 

) 

f irstexpanded = YES; 

/* explore problem V 

while ((node *= stacktop(sp) ) ) ( 

if (is_bounded (node, sp) ) ( sp->stat .bounded**; f ree_node (node) ; continue; ) 

toupdate glib » (node->lowb == sp->gllb) ? YES : NO; 
updatestat (sp) ; 

if (msgp->rt_pf == YES) pf_run_t ime (sp, of f set_sp) ; 
if (msgp->st_pf == YES) pf_space_vs_t ime (sp, offset^sp); 
if (is_constr_violated (sp) ) return SEARCH_IS_ABORTED; 
if (msgp->rp) alg_rt_pf (sp, msgp->rp) ; 
if (msgp->alg_entry — YES) alg_ent ry (sp, node); 

•ifdef DEBUG 

if (cmd. debug >= 2) debug_node ("Xnexpand", node, sp) ; 
lendif 

/* sprout only one child at a time */ 
child - expand (node, NEXT_CHILD, DONT_CARE) ; 
if (child == NIL) ( stack_pop(sp) ; continue; ) 
else sp->stat .generated**; 

if (f irst_expanded == YES) ( sp->stat .expanded**; f irst_expanded « NO; ) 

if (isinfeasible (child) ) { 

lifdef DEBUG 

if (cmd. debug >= 3) printf ("infeasibleXn**) ; 
lendi f 

sp->stat . infeasible**; 
f ree_node (chi Id) ; 
continue; 

) 

lifdef DEBUG 

if (cmd. debug >= 3) printf (“eval bounds\n“) ; 
lendif 

evaluate_lower_bound (child) ; 

sol = evaluate_upper_bound(child, get sol buf () ) ; 
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iifdef DEBUG 

if (cmd. debug >“ 3) debug_node (NIL, child, sp) ; 
lendif 

bound dom = YES; /* init skip */ 

if (child->upb < sp->glub) { 

I i fdef DEBUG 

if (cmd. debug >= 3) printf ("update incumbent \n"> ; 
lendif 

sp->glub = child->upb; 
eval__rt_approx (sp) ; 
f ree_sol_buf (sp-> incumbent) ; 
sp->incumbent = sol; 

bound_dom « NO; /* skip over bounded & dominated tests */ 

) 

else free_sol_buf (sol) ; 

if (i s_feasible_or_equi v (child) ) { 

I i fdef DEBUG 

if (cmd. debug >= 3) print f (“feasibleXn") ; 

#endi f 

sp->stat . feasible**; 
free_node (child) ; 
continue; 

} 

if (bound_dom *== YES) { 

if (is_bounded (child, sp) ) { 

#ifdef DEBUG 

if (cmd. debug >= 3) print f ("boundedVn") ; 
lendif 

sp->stat .bounded**; 
free__node (child) ; 
continue; 

) 

if (is_hard_bounded (child, sp) ) { 

Iifdef DEBUG 

if (cmd. debug >= 3) print f ("bounded\n") ; 
lendif 

if (Next_IDA_Threshold > child->lowb) Next_IDA_Threshold = child->lowb; 
sp->stat . hard_bounded++; 
free_node (child) ; 
continue; 

} 

stack_push (child, sp) ; 
f irst_expanded = YES; 

/* update glib */ 
if (to_update_gllb == YES) { 

sp->gllb = (is_stack_empty (sp) ) ? sp->glub : (stack_bot tom (sp) ) ->lowb; 
eval_rt_approx (sp) ; 

} 

) /* selection loop */ 

/* When the search is completed, the global lowb and the global upb 

* should be the same, regardless of approximation is used or not. 

* However, it is not the case, sometimes. 

* One possible reason is that 

* global lowb is supposed to be updated by a feasible sol; however, 

* the feasible sol is freed during the children loop. 


* Therefore, both are coersed to be equal. 

*/ 

sp->gllb = sp->glub; 

/“ if (sp->approx. approx == 0.0) sp->gllb sp->glub; “/ 
times (&break_time) ; 

sp->stat.unix_utime + = (break_time.tms_utime - start_time . tms_utime) ; 
sp->stat .unixstime += (break_time. tms_st ime - start_time . tms_stime) ; 

if (sp->constr. bound != problem. huge) 

if (sp->glub <= sp->constr .bound) msgp->feasible = YES; 

return SEARCH_I S_COMP LETED; 

1 /* dfs primitive */ 


primitive/first .c 


/* return SEARCHISCOMPLETED, search is completed; 

* return SEARCH_IS_ABORTED, search is aborted due to constraints. 

*/ 

search_ending_ first_primit ive (sp, offset_sp, msgp, num_active) 
search_ ‘sp, *offset_sp; 
search_raessage_ ‘msgp; 
int num__actlve; 

I node_ ‘node, ‘children, ‘child, ‘temp; 
solution_ ‘sol; 
yesno_ bound_dom; 
long count; 

Iifdef DEBUG 

if (cmd. debug >= 2) print f (“\nenter first_primitive\n N ) ; 
lendif 

times (&start_tirae) ; 
last_tirae = start_tlme; 
if (msgp->style **» FRESH_START) ( 
idpd_init () ; 

btree_insert (create_root (sp) , sp) ; 

) 

while (1) ( 

for (count ** 0, temp = sp->open.btree; temp; temp = temp->next) 
if (temp->type == ACTIVE_SINGLE) count ++; 
if (count >= numactive) return SEARCH IS COMPLETED; 
if ( 1 (node = btree delete (sp) ) ) break; 
sp->gllb * node->lowb; 
update_stat (sp) ; 

if (is_constr_violated (sp) ) return SEARCH_IS_ABORTED; 

/* expand will return a list of children */ 

if {(children = expand (node, ALL_CHILDREN, D0NT_CARE) ) ) sp->stat . expanded** 
f ree_node (node) ; 

for (child = children; child; child = child->brot her) { 
sp->stat .generated**; 

If (is_infeasible (child) ) ( 

sp->stat . infeasible**; 
f ree_node (chi Id) ; 
continue; 

1 

evaluate_lower_bound (child) ; 

sol = evaluate_upper_bound (child, get_sol_buf () ) ; 
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bound_dom = YES; / * init skip */ 

if {child->upb < sp->glub) { 
sp->glub = child->upb; 
eval_rt__approx (sp) ; 
free_sol__buf (sp->lncumbent) ; 
sp-> incumbent = soi; 
bounding (sp) ; 
dominating (child, sp) ; 

bound_dom = NO; /* skip over bounded & dominated tests */ 

) 

else free__sol_buf (sol ) ; 

if <is_feasible_or_equiv (child) ) ( 
sp->stat. feasible++; 
free_node (child) ; 
continue; 

) 

if (is_bounded (chi Id, sp) ) ( 
sp->stat . bounded++; 
free_node (child) ; 
continue; 

} 

if (bound_dom == YES) ( 

if (is_dominated (child, sp) ) ( 
sp->stat . dominated*-*-; 
free_node (child) ; 
continue; 

} 

} 

if (is_hard_bounded (child, sp) ) ( 
sp->stat . hard_bounded++; 
free__node (child) ; 
continue; 

) 

if (bound_dom =«= YES) 

dominating (child, sp) ; /‘ by non-leaf, lousy-upper-bound node */ 

btree_insert (child, sp) ; 

) /* children loop */ 

) /* selection loop */ 

times (sbreak_t ime) ; 

sp->stat . unix_ut ime + = (break_t ime . tms_ut ime - start_time . tms_ut ime) ; 
sp->stat . unix_st ime += (break_t ime. tms_st ime - start_time . tms_st ime) ; 

return SEARCH_I S_COMP LETED ; 

) /* first primitive -/ 


primitive/gbb.c 


/* return SEARCH_IS_COMPLETED, search is completed; 

* return SEARCH_IS_ABORTED, search is aborted due to constraints. 
V 

search_ending_ gbb_pr imit ive (sp, offset^sp, msgp) 
search_ *sp, *offset_sp; 
search_message_ ‘msgp; 

( node_ *node, ‘children, ‘child; 


solution_ ‘sol; 
yesno_ bound_dom; 

# ifdef DEBUG 

if (cmd. debug >= 2) print f ("\nenter gbb_primitive\n") ; 

•endif 

t imes (6start_time) ; last_time = start_time; 
if (msgp->style == PRES H_ST ART ) ( 
idpd_init 0 ; 

list_insert (create_root (sp) , sp) ; 

1 

while ((node = list_delete (sp) ) ) ( 

if (isbounded (node, sp) ) { sp->stat .bounded**; f ree_node (node) ; continue; 

sp->gllb «= node->lowb; 
eval_rt_approx (sp) ; 
update_stat (sp) ; 

if (msgp->rt_pf =*= YES) pf_run_tirtie (sp, offset_sp); 
if (msgp->st_pf == YES) pf_space_vs_t ime (sp, offset_sp) ; 
if (is_constr_violated (sp) ) return SEARCH_IS_ABORTED; 
if (msgp->rp) alg_rt_pf (sp) ; 

if (msgp->alg_ent ry == YES) alg_ent ry (sp, node); 

« ifdef DEBUG 

if (cmd. debug >“ 2) debugnode ("\nexpand", node, sp) ; 
ffendif 

/‘ expand will return a list of children */ 

if ((children = expand (node, ALLCHILDREN, DONT_CARE) ) ) sp->stat . expanded** 
f reenode (node) ; 

for (child = children; child; child - child->brother) ( 
sp->stat .generated**; 

if (isinfeasible (chi Id) ) ( 

•ifdef DEBUG 

if (cmd. debug >= 3) print f ("infeasibleXn") ; 

•endif 

sp->stat . infeasible**; 
free_node (child) ; 
continue; 

1 

•ifdef DEBUG 

if (cmd. debug >= 3) print f ("eval bounds\n") ; 

•endif 

evaluate_lower_bound (child) ; 

sol = eva luate_upper_bound (child, get_sol_buf () ) ; 

•ifdef DEBUG 

if (cmd. debug >= 3) debug_node (NIL, child, sp) ; 

•endi f 

bound_dom = YES; /* init skip */ 

if (child->upb < sp->glub) ( 

•ifdef DEBUG 

if (cmd. debug >= 3) print f ("update incumbent\n" ) ; 
lend! f 

sp->glub = child->upb; 
eval_rt_approx (sp) ; 
freesolbuf (sp-> incumbent) ; 
sp->i ncumbent = sol; 
bounding (sp) ; 
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dominating (child, sp) ; 

bound_dom = NO; /* skip over bounded & dominated tests */ 

} 

else free_sol_buf (sol) ; 

if (is_feasible_or_equiv (child) ) { 

•ifdef DEBUG 

if (cmd. debug >= 3) print f ( M feasible\n") ; 
lendif 

sp->stat.feasible++; 
free_node (child) ; 
continue; 

} 

if (is_bounded (child, sp) ) { 

I ifdef DEBUG 

if (cmd. debug >= 3) print f ( "bounded\n") ; 
lendi f 

sp->stat . bounded* +; 
f ree_node (chi Id) ; 
continue; 

1 

if (bound_dom =- YES) ( 

if (is_dominated (child, sp) ) { 
lifdef DEBUG 

if (cmd. debug >= 3) print f ("dominated\n M ) ; 
lendif 

sp->stat . domi nated++; 
free_node (child) ; 
continue; 

) 

I 

if (is_hard_bounded (child, sp) ) { 
lifdef DEBUG 

if (cmd. debug >= 3) print f ( H bounded\n M ) ; 
lendi f 

sp->stat . hard_bounded++; 
free_node (child) ; 
continue; 

) 

/* by non-leaf, lousy-upper-bound node */ 
if (bound_dom == YES) dominating (child, sp) ; 

list_insert (child, sp) ; 

} /* children loop */ 

} /* selection loop */ 

/* When the search is completed, the global lowb and the global upb 

* should be the same, regardless of approximation is used or not. 

* However, it is not the case, sometimes. 

* One possible reason is that 

* global lowb is supposed to be updated by a feasible sol; however, 

* the feasible sol is freed during the children loop. 

* Therefore, both are coersed to be equal. 

*/ 

sp->gllb = sp->glub; 

/** if (sp->approx. approx == 0.0) sp->gllb = sp->glub; “/ 
t imes ( 4 brea k_t i me ) ; 

sp->stat . unix_ut ime +=* (break_t ime. tms__ut ime - start_t ime . tms_ut ime) ; 
sp->stat . unix_stime +*= (break_time.tms_stime - start_time.tms_st Ime) ; 


if (sp->constr .bound != problem. huge) 

if (sp->glub <** sp->constr. bound) msgp->feasible » YES; 

return SEARCH_IS_COMPLETED; 

} /* gbb primitive */ 


primit ive/gdfs. c 


/* return SEARCH_IS_COMPLETED, search is completed; 

* return SEARCH_IS_ABORTED, search is aborted due to constraints. 

*/ 

search_ending_ gdfs_primiti ve (sp, offset_sp, msgp) 
search_ *sp, *offset_sp; 
search_message_ ‘rnsgp; 

{ node_ ‘node, ‘children, ‘child, *p, ‘temp, ‘tempo, *next_child, *new_llst; 
solution^ ‘sol; 

yesno_ bound_dom, to_update_gllb; 
float GUIDEH () ; 
lifdef HARE_GUI DANCE 
domain g_cost; 
lendif 
lifdef DEBUG 

if (cmd. debug >=» 2) printf (“\nenter gdf s_prlmit ive\n“ ) ; 
lendif 

times (*start_time) ; last_time » start_time; 
if (msgp->style ~ FRESHSTART) { 
idpdinit () ; 

list_insert (create_root (sp) , sp) ; 

) 

while ((node - listdelete (sp) ) ) ( 

•ifdef HAREGUI DANCE 

g_cost = node->g_cost ; 
lendif 

if (ls_bounded (node, sp) ) ( sp->stat .bounded++; f ree_node (node) ; continue; } 

to update glib = (sp->gllb m node->lowb) ? YES : NO; 
eval_rt_approx (sp) ; 
update__stat (sp) ; 

if (msgp->rt_pf == YES) pf_run_time (sp, offset_sp); 
if (msgp->st_pf == YES) pf_space_vs_t ime (sp, offset_sp); 
if (is constr violated (sp) ) return SEARCH_I$_ABORTED; 
if (msgp->rp) alg_rt_pf (sp, msgp->rp) ; 
if (msgp->alg_ent ry == YES) alg_entry (sp, node); 

lifdef DEBUG 

if (cmd. debug >= 2) debugnode (“\nexpand", node, sp) ; 
lendif 

/* expand will return a list of children */ 
if ((children ■= expand(node, ALL_CHILDREN, D0NT_CARE) ) ) 
sp->stat . expanded++; 
free_node (node) ; 

I if defined (LOWBGUIDANCE) | | defined (UPB_GUIDANCE) j I defined (UGDFS) | | defined 
_GUIDANCE) 

•define BOUND_GUI DANCE 
lendi f 


(HARE 
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new_lisc = NULL; 

for (child = children; child; child = next_chlld) 
sp->stat ,qenerated++; 
nexc_child = child->brother; 

bound_dom « YES; /* init skip */ 

if (is_infeasibie (child) ) ( 

lifdef DEBUG 

if (cmd. debug >= 3) print f ( "infeasible\n" ) ; 

#endi f 

sp->stat . infeasible++; 
free_node (child) ; 
continue; 

} 


lendi f 

sp~>stat .domlnated+t; 
free_node (child) ; 
continue; 

) 

) 

if (is_hard_bounded (child, sp) ) ( 
fifdef DEBUG 

if (crad. debug >= 3) print f (’•boundedNn*') ; 
lendi f 

if (Next_IDA_Threshold > child->lowb) Next_IDA_Threshold ° child->lowb; 
sp->stat . hard_bounded++; 
f ree_node (child) ; 
continue; 

) 


lifdef DEBUG 

if (cmd. debug >= 3) print f ("eval bounds\n“); 
lendi f 

evaluate__lower_bound (child) ; 

sol = evaluate_upper_bound (child, get_sol_buf () ) ; 
lifdef DEBUG 

if (cmd. debug >= 3) debug_node (NIL, child, sp) ; 

lendif 


/* by non-leaf, lousy-upper-bound node */ 
if (bound_dora — YES) dominating (child, sp) ; 

child->next - new_list; 
new_list « child; 

) /* children loop */ 

children = new_list; 
newlist - NULL; 


if (child->upb < sp->glub) ( 
lifdef DEBUG 

if (cmd. debug >= 3) print f (“update incumbent\n“) ; 
lendif 

sp->glub - child->upb; 
eval_rt_approx (sp) ; 
free_sol_buf (sp->incumbent) ; 
sp->incumbent = sol; 
bounding (sp) ; 
dominating (child, sp) ; 

bound_dom = NO; /* skip over bounded & dominated tests */ 

} 

else free_sol_buf (sol) ; 

if (is_feasible_or_equiv (child) ) ( 
lifdef DEBUG 

if (cmd. debug >= 3) print f (“feasibleVn-) ; 
lendif 

sp->stat . feasible++; 
free_node (child) ; 
continue; 

) 

if (is__bounded (child, sp) ) ( 
lifdef DEBUG 

if (cmd. debug >= 3) print f ("boundedVn") ; 
lendif 

sp->stat .bounded++; 
free_node (child) ; 
continue; 

) 

if. (bound_dom •- YES) ( 

if (ls_dominated (child, sp) ) ( 
lifdef DEBUG 

if (cmd. debug >= 3) print f ( "dominatedXn") ; 


lifdef BOUNDGUIDANCE 

/** sort these live children by fancy guidance **/ 
for (child - children; child; child = chlld->next) { 
if (newlist) ( 

for (tempo = temp = new_list; temp; temp = (tempo « temp) ->brot her) ( 

I if defined (HAREGUI DANCE) 

if (GUIDEH (child->upb, child->lowb, chi ld->depth, chi ld->g_cost - gcost) < 
GUI*DE_H (temp->upb, temp->lowb, temp->depth, temp->g_cost - g_cost)) ( 
lelif defined (UPB_GUIDANCE) || defined (UGDFS) 
if (child->upb < terap->upb) ( 
lelif defined (LOWB_GUIDANCE) 

if (child->lowb < temp->lowb) ( 
lelse /** bad guidance **/ 

if (1) i 

lendif 

if (temp =■» new_l 1st) (new_list « chi Id) ->brother - temp; 
else (tempO-> brother = child) ->brother = temp; 
break ; 

1 

J 

if (! temp) (tempO->brother » chi Id) ->brother - NULL; 
else (new_list = child) ->brother ** NULL; 

) 

children = new_list; 
lelse DEFAU LT_GUIDANCE 

for (child = children; child; child - child->next) ( 
chi ld->brot her = new_list; 
new_list = child; 

) 

children «* new_list; 
lendif BOUND GUIDANCE 
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for (child = children; child; child = child->brother) ( 
child->next « NULL; 
li st_insert (child, sp) ; 

\ 

if (to_update_gl lb YES) ( 

if (is_list_empty (sp) ) sp->gllb = sp->glub; 
else ( 

/* set init value for global_lowb */ 
sp->gllb » <p = sp->open. 1 1st) ->lowb; 

/* global lowb == min { lowb of all active nodes ) ‘/ 
for (p = p->next; p; p *• p->next) 

if (p->lowb < sp->gllb) sp->gllb = p->lowb; 

) 

) 

} /* selection loop */ 
times (&break_time) ; 

sp->stat . unix_ut ime += (break_t ime. tms_ut ime - start_time.tms utime); 
sp->stat . unix_st ime += (break_t ime. tms_stime - start_time.tms stime); 

if (sp->constr. bound problem. huge) 

if (sp->glub <= sp->constr .bound) msgp->feasible = YES; 

/* When the search is completed, the global lowb and the global upb 

* should be the same, regardless of approximation is used or not. 

* However, it is not the case, sometimes. 

* One possible reason is that 

* global lowb is supposed to be updated by a feasible sol; however, 

* the feasible sol is freed during the children loop. 

* Therefore, both are coersed to be equal. 

*/ 

sp->gllb = sp->glub; 

/** if (sp->approx. approx =«= 0.0) sp->gllb = sp->glub; **/ 

return SEARCH_IS_COMPLETED; 

} /* gdfs primitive */ 


primitive/path. c 


/* return SEARCH_IS_COMPLETED, search is completed; 

* return SEARCH__IS_ABORTED, search is aborted due to constraints. 

V 

search_ending_ path_primit ive (sp, offset_sp, msgp) 
search_ ‘sp, ‘offset_sp; 
search_message_ ‘msgp; 

( node_ ‘node, ‘children, ‘child, *p, ‘best, *next_child; 
solution_ * sol, ‘best_sol; 
yesno_ bound_dom; 

#ifdef DEBUG 

if (cmd. debug >= 2) print f ( "\nenter pat hprimit ive\n") ; 

(fendi f 

times (&start_time) ; last_time = start_time; 
for (node = list_delete (sp) ; node; node = 1 ist_delete (sp) ) ( 
•ifdef DEBUG 

if (cmd. debug >= 2) debug_node ( "\nexpand" , node, sp) ; 

(fendif 

/* expand will return a list of children */ 
children = expand (node, ALL__CHILDREN, DONT__CARE) ; 
free_node (node) ; 


best = NULL; best_sol = NULL; 

for (child *= children; child; child = next_child) ( 
next_child = child->brother; 

if (is_infeasible (chi Id) ) ( freenode (child) ; continue; } 

if (child->type == ACTIVE_S INGLE) ( 

evaluate_lower_bound (child) ; 

sol ■ evaluate_uppe rebound (child, get_sol_buf () ) ; 
if (best) ( 

if (child->lowb < best->lowb) ( 
best = child; 
best_sol « sol; 
freenode (best); 

} else free_node (child); 

) else ( 

best = child; 
best_sol = sol; 

) 

| else free_node (child); 

) 

sol « bestsol; 

if ( ! (child = best)) continue; 

if (child->upb < sp->glub) ( 
sp->glub » child->upb; 
eval_rt_approx (sp) ; 
free_sol_buf (sp-> Incumbent) ; 
sp->incumbent = sol; 

) else free_sol_buf (sol ) ; 

if (is_feasible_or_equlv (child) ) ( 

sp->stat . feasible++; 
f reenode (chi Id) ; 
return SEARCH_IS_COMPLETED; 

1 

list_insert (child, sp) ; 

) /* selection loop */ 

times (4break_tlme) ; 

sp->stat .unix utime +*= (break_t ime. tms_ut ime - start_time . tms_utime) ; 
sp->stat.unix”stime += (break_t ime. tms_st ime - start_t ime . tms_stlme) ; 
return SEAR CH~IS_ABOR TED; 

) /* path primitive */ 


primitive/pbf s . c 


/» return SEARCH_IS_COMPLETED, search is completed; 

* return S E A RC H__I S__A BO RT ED , search is aborted due to constraints; 

* return SEARCH_IS_IDLE, search process is idle. 

V 

search_ending_ pbfs_primit i ve (sp, offset_sp, msgp, glib, ngenp) 
search_ *sp, *offset_sp; 
search_message_ ‘msgp; 
domain glib; 
long ‘ngenp; 

( node_ ‘node, ‘children, ‘child; 
solution_ ‘sol; 
yesno_ bound_dom; 
iifdef DEBUG 
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if (cmd. debug >= 2) printf ( M \nenter pbfsprimiti ve\n") ; 
lendif 

*ngenp = 0; 

times (istart__t ime) ; 

last_time = start_time; 

if {(node = bt ree_delete (sp) ) ) ( 

if (is_bounded (node, sp) ) ( 
sp->stat .bounded++; 
free__node (node) ; 
goto pbfs_exit; 

} 

sp->gllb “ (glib < node->lowb) ? glib : node->lowb; 
eva l_rt_approx (sp) ; 
update_stat (sp) ; 

if (msgp->rt_pf -■ YES) pf_run_time (sp, offset sp); 
if (msgp->st_pf *=«= YES) pf_space_vs_t ime (sp, offset sp) ; 
if (is_constr_violated (sp) ) return SEARCH_IS_ABORTED; 
if (msgp->rp) alg_rt_pf (sp, msgp->rp) ; 
if (msgp->alg_entry »» YES) alg_entry (sp, node); 

# ifdef DEBUG 

if (cmd. debug >= 2) debug^node ( "\nexpand" , node, sp) ; 

#endi f 

/* expand will return a list of children V 
if ((children ° expand (node, ALL_CHILDREN, DONT_CARE) ) ) 
sp->stat .expanded++; 
free_node (node) ; 

for (child = children; child; child = child->brot her) { 
sp->stat .generated*-*-; 

{ *ngenp) ++; 

if (is_infeasible (child) ) { 

lifdef DEBUG 

if (cmd. debug >= 3) print f ("infeasibleXn") ; 
lendif 

sp->stat . infeasible**; 
free_node (child) ; 
continue; 

) 

lifdef DEBUG 

if (cmd. debug >= 3) printf ( M eval bounds\n M ); 
lendif 

evaluate_lower_bound (child) ; 

sol » evaluate_upper_bound (child, get_sol_buf {) ) ; 
lifdef DEBUG 

if (cmd. debug >= 3) debug_node (NIL, child, sp) ; 
lendi f 

bound_dom = YES; /* init skip */ 

if (child->upb < sp->glub) ( 
lifdef DEBUG 

if (cmd. debug >■= 3) print f (“update incumbent\n" ) ; 
lendi f 

sp->glub « child->upb; 
eval_rt_approx (sp) ; 
free__sol_buf (sp-> incumbent) ; 
sp->incumbent = sol; 


bounding (sp) ; 
dominating (child, sp) ; 

bounddom » NO; /* skip over bounded & dominated tests */ 

} 

else free _sol_buf (sol) ; 

if (is_feasible_or_equiv (child) ) ( 
lifdef. DEBUG 

if (cmd. debug >- 3) print f ("feasible\n M ) ; 
lendi f 

sp->stat . feasible++; 
f ree_node (chi Id) ; 
continue; 

) 

if (is_bounded (child, sp) ) | 

« ifdef DEBUG 

if (cmd. debug >= 3) print f ( M bounded\n") ; 
lendi f 

sp->stat .bounded**; 
free_node (child) ; 
continue; 

) 

if (bound_dom == YES) { 

if (is_dominated (child, sp) ) ( 
lifdef DEBUG 

if (crad. debug >- 3) pri nt f ("domlnated\n“) ; 
lendif 

sp->stat .dominated**; 
f reenode (child) ; 
continue; 

) 

) 

if (lshardbounded (child, sp) ) ( 
lifdef DEBUG 

if (cmd. debug >= 3) print f ("bounded\n") ; 
lendi f 

sp->stat . hard_bounded++; 
f ree_node (child); 
continue; 

I 

if (bounddom == YES) 

dominating (child, sp) ; /* by non-leaf, lousy-upper-bound node */ 

btree_insert (child, sp) ; 

) /* children loop */ 

) else ( 

return SEARCH_IS_IDLE; 

1 

pbf s_exit : 

times (ibreak_t ime) ; 

sp->stat . unix utime + = (break_time.tms_utime - start_time.tms_utime) ; 
sp->stat .unix”stime + *= (break_time.tms_stime - start_time . tms_stime) ; 

return SEARCH_IS_COMPLETED; 

) /* pbfs primitive */ 


primitive/pfirst. c 
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/* return SEARCH_IS_COMPLETED, search is completed; 

* return SEARCH_IS_ABORTED, search is aborted due to constraints. 

*/ 

search_ending_ pf i rst_primit ive (sp, offsetsp, msgp, num active) 
search_ "sp, *offset_sp; 
search_message_ "msgp; 
int num_active; 

{ node_ "node, "children, "child, "temp; 
solution_ "sol; 
yesno_ bound_dom; 
long count; 

Iifdef DEBUG 

if (cmd. debug >= 2) print f ( M \nenter f irst_prin»itive\n**) ; 
lendi f 

times (istart^time) ; 
last_time - start_time; 
if (msgp->style FRESH_START) { 
idpd_init () ; 

btree_insert (create_root (sp) , sp) ; 

) 

while (1) { 

for (count = 0, temp «=« sp->open.btree; temp; temp - temp->next) 

/** If (temp->type == ACTIVE_SINGLE) **/ count++; 
if (count >« num_active) return SEARCH_IS_COMPLETED; 
if ( ! (node « btree delete (sp) ) ) break; 
sp->gllb = node->lowb; 
update_stat (sp) ; 

if (ls_constr__violated (sp) ) return SEARCH_IS_ABORTED; 

/" expand will return a list of children */ 

if ((children = expand (node, ALL_CHILDREN, DONT_CARE) ) ) sp->stat .expanded**; 
f ree_node (node) ; 

for (child = children; child; child - chi ld->brother) ( 
sp->stat .generated**; 

if (is_infeasible (child) ) { 

sp->stat . infeasible**; 
free_node (child) ; 
continue; 

) 

evaluate_lower_bound (child) ; 

sol = evaluate_upper_bound (child, get_sol_buf () ) ; 

bound_dom = YES; /" init skip */ 

if (child->upb < sp->glub) { 
sp->glub = child->upb; 
eval_rt_approx (sp) ; 
f ree_sol_buf (sp-> incumbent) ; 
sp-> incumbent = sol; 
bounding (sp) ; 
dominating (child, sp) ; 

bound_dom = NO; /* skip over bounded & dominated tests */ 

) 

else free_sol_buf (sol ) ; 

if (is_feasible_or_equi v (child) ) { 
sp->stat . feasible**; 
free_node (child) ; 


continue; 

} 

if (is bounded (child, sp) ) ( 
sp->stat .bounded**; 
free node (child) ; 
continue; 

\ 

if (bound_dom »- YES) ( 

if (is_dominated (child, sp) ) ( m 

sp->stat .dominated++; 
free_node (child) ; 
continue; 

I 

I 

if (is_hard_bounded (child, sp) ) ( 
sp->stat . hard_bounded++; 
free_node (child) ; 
continue; 

J 

if (bound_dom == YES) 

dominating (child, sp) ; /* by non-leaf, lousy-upper-bound node */ 

c 

btree_insert (child, sp) ; 

) /* children loop »/ 

I /* selection loop */ 

times (&break_time) ; 

sp->stat . unix__utime 4-® (break_t ime. tms_ut ime - start_time . tms_utime) ; 
sp->stat . unixstime + ® (break_t ime. tms_s time - start_t ime .tmsstime) ; 

return S£ARCH_I S_COMP LETED; 

) /" first primitive */ 


primitive/pgdfs.c 


/* return SEARCH_IS_COMPLETED, search is completed; 

" return SEARCH_IS_ABORTED, search is aborted due to constraints, 

* return SEARCH_IS_IDLE, search process is idle. 

*/ 

search_ending_ pgdf s_primit ive (sp, offset_sp, msgp, glib, ngenp) 
search_ "sp, *offset_sp; 
search_message_ "msgp;. 
domain glib; 
long "ngenp; 

( node_ "node, "children, ‘child, "p, "temp, "tempo, *next_child, *new_li 
solution__ "sol; 
yesno_ bound_dom; 

Iifdef DEBUG 

if (cmd. debug >= 2) print f (“\nenter pgdfs_primit i ve\n") ; 
lendif 

"ngenp = 0; 

times (&start_time) ; 

last_time = starttime; 

if ((node = 1 istdelete (sp) ) ) { 

if (i s__bo unde d (node, sp) ) ( 
sp->stat .bounded**; 
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free_node (node) ; 
goto pgdfs_exit; 

1 

sp->gllb = (glib < node->lowb) ? glib : node->lowb; 
eval_rt_approx (sp) ; 
update_stat (sp) ; 

if (msgp->rt_pf == YES) pf_run_t ime (sp, offset_sp); 
if (msgp->st_pf == YES) pf_space_vs_t ime (sp, offset_sp); 
if (is_constr__violated (sp) ) return S E A RC H_ I S_A BO RT E D ; 
if (msgp->rp) alg_rt_pf (sp, msgp->rp); 
if (msgp->alg_entry == YES) alg_entry (sp, node); 
lifdef DEBUG 

if (cmd. debug >* 2) debug_node ("\nexpand H , node, sp) ; 
fendif 

/* expand will return a list of children */ 
if ((children = expand(node, ALL_CHILDREN, DONT_CARE) ) ) 
sp->stat . expanded *+; 
free__node (node) ; 

lif defined (LOWB_GUIDANCE) || defined (UPB GUIDANCE) || defined (UGDFS) 

I define BOUND_GUIDANCE 

lendif 

new_list = NULL; 

for (child = children; child; child = next_child) { 
sp->stat . generated**; 

(*ngenp)++; 

next_child « chi ld->brother; 

bound_dom = YES; /** init skip **/ 

if (is_infeasible (child) ) ( 

lifdef DEBUG 

if (cmd. debug >= 3) print f (“infeasible\n") ; 
lendi f 

sp->stat . infeasible**; 
free__node (chi Id) ; 
continue; 

) 

lifdef DEBUG 

if (cmd. debug >= 3) print f ("eval bounds\n M ) ; 
lendif 

evaluate_lower_bound (child) ; 

sol = evaluate_upper_bound (child, get_sol_buf () ) ; 
lifdef DEBUG 

if (cmd. debug >= 3) debug__node (NIL, child, sp) ; 
lendif 

if (child->upb < sp->glub) ( 
lifdef DEBUG 

if (cmd. debug >= 3) print f ("update incumbent\n“ ) ; 
lendif 

sp->glub = child->upb; 
eval_rt_approx (sp) ; 
free_sol_buf (sp-> incumbent) ; 
sp-> incumbent = sol; 
bounding (sp) ; 
dominating (child, sp) ; 

bound_dom « NO; /* skip over bounded & dominated tests */ 


else free_sol_buf (sol) ; 

if (is_feasible_or_equiv (child) ) ( 

lifdef DEBUG 

if (cmd. debug >= 3) print f ("feasibleXn") ; 
lendi f 

sp->stat . feasible**; 
free_node (child) ; 
continue; 

) 

if (is_bounded (child, sp) ) ( 
lifdef DEBUG 

if (cmd. debug >*= 3) print f ( "bounded \n H ) ; 
lendi f 

sp->stat .bounded**; 
free__node (child) ; 
continue; 

I 

if (bound_dom **« YES) { 

if (is_dominated (child, sp) ) ( 
lifdef DEBUG 

if (cmd. debug >*= 3) print f (**dominated\n“) ; 
lendif 

sp->stat .dominated**; 
free node (child) ; 
continue; 

) 

I 

if (is_hard_bounded (child, sp)) ( 

• lifdef DEBUG 

if (cmd. debug >= 3) print f ("boundedXn") ; 
lendif 

sp->stat . hardbounded**; 
free_node (child) ; 
continue; 

) 

/* by non-leaf, lousy-upper-bound node V 
if (bound_dom -- YES) dominating (child, sp) ; 

child->next = new_list; 
new_list = child; 

) /* children loop */ 

children = newlist; 
new_l 1st = NULL; 

lifdef BOUND_GUIDANCE 

/** sort these live children by fancy guidance **/ 
for (child = children; child; child = child->next) ( 
if (new_list) { 

for (tempo = temp » new__list; temp; temp « (tempo = temp) ->brother) ( 

lif defined (UPBGUIDANCE) || defined (UGDFS) 
if (child->upb < temp->upb) ( 
lelif defined ( LOWB_GUIDANCE) 

if (child->lowb < temp->lowb) ( 
lelse /** bad guidance **/ 
if (1) ( 


) 


lendi f 
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if (temp == new_list) (new_list - child) ->brot her - temp; 

else (tempO->brother = chi Id) ->brother = temp; 

break; 

} 

I 

if (! temp) (tempO->br other = child) ->brother = NULL; 

) 

else (new_list = chi Id) ->brother = NULL; 

) 

children = new_list; 

•else DEFAULT_GUI DANCE 

for (child =* children; child; child = child->next) { 
chi ld->brother = new_list; 
new_list » child; 

} 

children =* new_list; 
iendif BOUND_GUIDANCE 

for (child = children; child; child = child->brother) ( 
child->next = NULL; 
list_lnsert (child, sp) ; 

} 

) else ( 

return SEARCH__IS_IDLE; 

J 


pgdfs_exit : 

times (&break_time) ; 

sp->stat . unix_utime += (break_time. tms_ut ime - start_time . tms_utime) ; 
sp->stat . unix^stime += (break_t ime. tms_st ime - start_tlme.tms_stime); 

if (sp->constr .bound \= problem. huge) 

if (sp->glub <= sp->constr. bound) msgp->feasible = YES; 

return SEARCH_IS__COMPLETED; 

} /* pgdfs primitive */ 
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kernel/etc. c 


void error (msg) 
char *msg; 

I fprlntf (stderr, "*** ERROR **» ts”, msg); exlt(0); ) 


int ceiling (val) 
float val; 

{ int temp; 

temp = toint (val) ; 

if (val > tof loat (temp) ) temp++; 

return temp; 


int is_any (array, left, right) 
int array (), left, right; 

{ int k; 

for (k = left; k <= right; k++) 
if (array [k]) return 1; 
return 0; 


int is_member (item, array, left, right) 
int item, array [], left, right; 

{ int i; 

for (i left; i < right; i++) 
if (item «« array(i)) return 1; 
return 0; 


int is__invalid_gllb (sp) 
search__ *sp; 

( return ( (tof loat (sp->gl lb) -« 0.0) || (sp->gllb »= - problem. huge) ) ; } 

int is_compound (n) 
node_ *n; 

{ retur n (n->type == aCTIVE_COMPOUND) ; ) 


void set_compound (n) 
node_ *n; 

( n->type = ACTIVE_COMPOUND; ) 


/* internal maintenance of solution buffers */ 
solution_ *sol_buf_mgr = NULL; 

solution_ *get_sol__buf () 

{ solution_ *p; 

if (sol_buf_mgr) ( 
p = sol_buf_mgr; 

sol_buf_mgr = ((solution_ *) ‘((int *) p) ) ; 


) 

else ( 

p = (solution_ *) malloc(2 * sizeof (solution^) ) ; 
sol_buf_mgr = p + 1; 

*((int *) sol_buf_mgr) = NULL; 

) 

reset_sol_buf (p) ; 
return p; 


void free_sol_buf (solp) 
solution^ 'solp; 

I 

* ( (int *) solp) ° ((int) so l_buf _mgr ) ; 
sol_buf_mgr - solp; 


int is_alg_rt_pf (sp) 
search_ *sp; 

I 

switch (sp->algorithm) ( 
case pTCA: 

case dTCA : return 1; 
default: return 0; 

) 

) 

/* generate a random Integer over [left, right) */ 
int gen_random_lnt (left, right) 
int left, right; 

{ return (left + {(int) (gen_random_f loat () * (right - left + 1)))) 

/* generate a random float over [0.0, 1.0) */ 
float gen_random_f loat () 

( return (((float) rand () ) / RANDOM_RADIX) ; ) 

/* generate a random float over [left, right) */ 
float gen_random_range (left, right) 
float left, right; 

{ return (left + gen _random_f loat {) * (right - left)); ) 


void set_search_task (task) 
task_ task; 

{ problem. task = task; ) 


void debug node (message, node, sp) 
char 'message; 
node 'node; 
search_ ‘sp; 

( 

if (message) print f ("%s\n", message); 
if (node) { 

printf ("node=%x, parent=%x, depth=%d, entity=%d, ", 

node, node->parent, node->depth, node->ent i ty) ; 
if (problem. domain == INT || problem. doma in -« LONG) 

printf ("g_cost=%d, lowb=%d, upb=%d, glub=%d, gllb=%d\n". 
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node->g_cost, node->lowb, node->upb, sp->glub, sp->gllb); 

else 

prlntf ("g_cosf%g, lowb=%g, upb=%g, glub=%g, gllb=%g\n", 

node->g_cost, node->lowb, node->upb, sp->glub, sp->gl lb) ; 


void set_node_si ze (pdsd_slze) 
long pdsd_slze; 

( node_conf . node_sl ze » (node_conf .pdsd_size = pdsd_slze) + slzeof (node_) ; I 
void junk () ( prlntf ( "checkpoint\n“ ) ; ) 


kernel/free.c 


void free_environ (sp, not_top_level) 
search_ *sp; 
lnt not_top_level; 

( search_ *p; 

If (sp) ( 

if (sp->child) free_envlron (sp->child, 1); 

If (sp->brother) free_envlron (sp->brother, 1); 

f ree_open (sp) ; 

If (not_top_level) | 
free_alg_struot (sp) ; 
free (sp) ; 

I 

I 

1 


void f ree_alg_struct (sp) 
search_ *sp; 

( 

if (sp->alg.def) 

switch (sp->algorithm) 

l 


case 

DEFAULT: 


sp->alg.def * 

NULL; 

break; 

case 

LW: 



sp->alg.lw = 

NULL; 

break; 

case 

sTCA 

free 

(sp->alg . stca) ; 

sp->alg . stca 

= NULL 

break; 

case 

pTCA 

free 

(sp->alg .ptca ) ; 

sp->alg .ptca 

= NULL 

break; 

case 

dTCA 

free 

(sp->alg.dtca) ; 

sp->alg .dtca 

= NULL 

break; 

case 

sTCGl 

): free 

(sp->alg.stcgd) ; 

sp->alg.stcgd 

» NUL 

a; break; 

case 

pTCG[ 

): free 

(sp->alg.ptcgd) ; 

sp->alg.ptcgd 

= NUL 

break; 

case 

uRTS 

free 

(sp->alg.urts) ; 

sp->alg . urts 

= NULL 

break; 

case 

bRTS 

free 

(sp->alg .brt s) ; 

sp->alg.brts 

= NULL 

break; 

case 

hRTS 

free 

(sp->alg .hrt s) ; 

sp->alg.hrts 

= NULL 

break; 

case 

uIRD 

free 

(sp->a lg . uird) ; 

sp->alg .uird 

= NULL 

break; 

case 

bIRD 

free 

(sp->alg .bird) ; 

sp->alg.bird 

= NULL 

break ; 


default: error (*' f ree_alg_st ruct : no such algorithm^**) ; break; 

) 

1 


void free_open (sp) 
search_ *sp; 


t 1 nt 1 ; 


switch (sp->strategy) 

case GBB: f ree l 1st (sp->open . 1 1st ) ; sp->open. 1 1st = NULL; break; 

case BPS: free_bptree(sp->open.bptree) ; sp->open .bpt ree - NULL; break; 

case DFS: freestack (sp->open. stack) ; sp->open. stack = NULL; break; 

case GDFS: freelist (sp->open.llst) ; sp->open.llst - NULL; break; 
case BAND: freebtree (sp->open.btree) ; sp->open .btree = NULL; 
for (1 =0; 1 < MaxDepth; 1++) ( 

freebtree ( (sp->band.tree+l)->young) ; 

(sp->band. tree+1 ) ->young = NULL; 

I 

break; 

default: free list (sp->open.list) ; sp->open. 1 1st - NULL; break; 

) 

I 

void freelist (list) 
node_ “list; 

( node_ *p, *p0,‘ 

for (p = list; p; p = pO) ( 
pO - p->next; 
f ree_node (p) ; 

) 

1 


void free_btree (tree) 
node_ *tree; 

( node_ *p, *p0; 

for (p - tree; p; p = pO) I 
pO “ p->next; 
free_node (p) ; 

I 

( 


void free_stack (stk) 
node_ *stk; 

| node_ *p, *p0; 

for (p - stk; p; p * pO) ( 
pO = p->next; 
free_node (p) ; 

I 

) 

f Ifndef DELAY_FREE_NODE 
void free_node (node) 
node_ ‘node; 

( node_ ‘parentp; 

/* bad-node test * / 
if (node — NULL) return; 

/* reset activeness of node */ 
node->type = INACTIVE; 


/* free this node */ 



I SE' kernel, CRHC-92-1 


dispose_search_node_to_pool (node) ; 

} 

lelse 

void free_node (node) 
node_ *node; 
t node_ *parentp; 

/* bad-node test */ 
if (node == NULL) return; 

/* reset activeness of node */ 
node->type - INACTIVE; 

if (node->nsprout <*= 0) ( 
while (node) { 

/* remember parent */ 
parentp •=* node->parent; 

# if def DEBUG 

if (cmd. debug >« 3) print f (" free node=%d\n", node); 

#endi f 

/* free this node */ 

dispose_search_node_to_pool (node) ; 

/* update parent's nsprout 
* further if it is zero, then free parent also 
*/ 

if (parentp) 

if ( — (parentp->nsprout) > 0) node - NULL; 
else node <= parentp; 
else node = NULL; 

} 

} 

#ifdef DEBUG 
else 

if (cmd. debug >= 3) 

print f ("not pruned due to nsprout=%d\n" , node->nsprout ) ; 

iendi f 
I 

#endi f 


kernel/init ,c 


search_ *init_envlron (sp) 
search^ *sp; 

( search_ *new_sp; 
domain base; 

new_sp = (sp) ? sp : ( (search_ *) malloc (si zeof (search_) ) ) ; 
if (sp) { 

init__search_struct (new_sp, 1 , 0); 
init_alg_st ruct (new_sp) ; 

\ 

else { 

init_search_struct (new_sp, 1 , 1 ); 
attach_alg__st ruct (new_sp) ; 
clear_f lies () ; 


} 


ldpd_init () ; 

examine root (new_sp) ; 

if (cmd.bound_metric == RELATIVE) ( 

base = (cmd.bound_base == problem. huge) ? ROOT->upb : cmd.bound_base; 
new_sp->constr. bound = ROOT->lowb + 

(base - ROOT->lowb) * cmd. const r. bound / 100.0; 

) 

return new_sp; 


void clear files () 

( char cmd[100] ; 

f close (fopen (io.stat, "w") ) ; 
f close (fopen (io. summary, "w") ) ; 
f close (fopen (io.rt_pf , "w") ) ; 
fclose (fopen (io.st_pf , "w") ) ; 
f close (fopen (io. report, "w") ) ; 

sprintf(cmd, “rm %s %s %s %s %s", 

io.stat, io. summary, io.rt_pf, io.st_pf, io. report); 

system (cmd) ; 

I 


void attach_alg_struct (sp) 
search_ *sp; 

I 


switch (sp->algorithm) 


case 

sTCA: 

sp->alg.stca = (stca_ *) 

malloc 

(sizeof 

(stcaj ) ; 

* break 

case 

pTCA: 

sp->alg.ptca = (ptca_ *) 

malloc 

(sizeof 

(ptcaj ) ; 

break 

case 

dTCA: 

sp->alg.dtca *» (dtca_ *) 

malloc 

(sizeof 

(dtcaj ) ; 

break 

case 

sTCGD; 

sp->alg .stcgd «* (stcgd_ 

M malloc (sizeof (stcgd)); 

break 

case 

pTCGD: 

sp->alg.ptcgd = (ptcgd_ 

M malloc (sizeof (ptcgd_)); 

break 

case 

uRTS: 

sp->alg.urts = (urts_ 

malloc 

(sizeof 

(urts_) ) ; 

break 

case 

bRTS : 

sp->alg.brts » (brts_ *) 

malloc 

(sizeof 

(brts_) ) ; 

break 

case 

hRTS : 

sp->alg.hrts = (hrts_ *) 

malloc 

(si zeof 

(hrts_) ) ; 

break 

case 

uIRD: 

sp->alg.uird = (uird_ *) 

malloc 

(sizeof 

(ulrdj ) ; 

break 

case 

bIRD: 

sp->alg.bird = (bird_ * 

malloc 

(sizeof 

(bl rd_) ) ; 

break 

default: 

break; 






} 

init_alg_st ruct (sp) ; 

I 

void init_alg_struct (sp) 
search^ *sp; 

( 


switch (sp->algorithm) 


case 

sTCA: 

init_ 

_stca_ 

struct 

(sp->alg.stca) ; 

break 

case 

pTCA: 

init_ 

ptca_ 

struct 

(sp->alg.ptca) ; 

break 

case 

dTCA: 

init_ 

dtca_ 

struct 

(sp->alg.dtca) ; 

break 

case 

STCGD: 

init_ 

stcgd 

i_st ruct 

(sp->alg.stcgd) ; 

break 

case 

pTCGD : 

init_ 

ptcgd 

l_st ruct 

(sp->alg. ptcgd) ; 

break 

case 

uRTS: 

init_ 

_urts_ 

struct 

(sp->alg.urts) ; 

break 

case 

bRTS: 

init 

brts_ 

struct 

(sp->alg.brts) ; 

break 

case 

hRTS: 

ini t_ 

hrts 

struct 

(sp->alg.hrts) ; 

break 

case 

uIRD: 

init_ 

~uird_ 

struct 

(sp->alg.uird) ; 

break 

case 

bIRD: 

ini t 

bi rd_ 

struct 

(sp->alg.bird) ; 

break 
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default: break ; 

) 

} 


void examine_root (sp) 
search_ *sp; 

{ node_ *root; 
solution_ *solp; 

/* set init threshold */ 

ROOT = root => root_generator {) ; 
evaluate_lower_bound {root) ; 

solp - evaluate_upper_bound (root , get_sol buf()); 
if (sp-> incumbent **» NULL) sp-> incumbent - solp; 
else free_sol_buf (solp) ; 

sp->approx.x_root_approx *= sp->approx . root_approx 

“ calc_rt_approx (root->lowb, root->upb, NO, problem. huge) ; 
sp->gllb « sp->x_root_lb ** sp->root lb “ root->lowb; 
sp->glub » sp->x_root_ub * sp->root_ub = root->upb; 
sp->approx. root_accu ■ approx2accu (sp->approx. rootapprox) ; 

lifdef DEBUG 
if (cmd. debug >= 1) 

print f ("root : lowb=%g, upb=%g, root_approx°%g\n M # 

((float) sp->root_lb) , ((float) sp->root_ub) , sp->approx . root approx); 

lendif 

I 


node_ *create_root (sp) 
search^ *sp; 

{ node_ *root; 
solution_ *solp; 

lifdef DEBUG 

if (cmd. debug >= 2) print f ("generate root\n"); 
lendif 

root = root_generator {) ; 
evaluate_lower_bound (root ) ; 

solp = evaluate_upper_bound (root, get__sol_buf () ) ; 

sp->root_lb = root->lowb; 
sp->root_ub = root->upb; 

if (sp->incumbent =- NULL) ( 
sp-> incumbent = solp; 

sp->gllb = sp->x_root_lb = root->lowb; 
sp->glub = sp->x_root_ub = root->upb; 

} 

else free_sol_buf (solp); 
lifdef DEBUG 

if (cmd. debug >= 2) debug_node ( "root", root, sp) ; 
lendif 

return root; 

) 


yesno_ is_null_device (sp) 
search^ *sp; 

{ 

if (sp->approx. approx > 0.0) return NO; 
if (sp->constr .bound < problem. huge) return NO; 

return YES; 

} 


domain expect ed_opt (sp) 
search_ *sp; 

( float temp; 

temp - tofloat (sp->glub) / (1.0 + sp->approx. approx) ; 
switch (problem. domain) ( 
case INT: 

case LONG: return ((domain) cei ling (temp) ) ; break; 

case FLOAT: 
case DOUBLE: 
default: break; 

} 

return ((domain) temp); 


float calc_rt approx (lowb, upb, th_flag, th) 
domain lowb, upb; 
yesno_ th flag; 
domain th; 

( float rt, rtth, up - tofloat (upb) , low = tofloat (lowb) ; 


/* normal run-time approx */ 
rt = (low »« ((domain) 0) II lowb 

rt = max(rt , 0.0) ; 


problem. huge) 

? HUGE_FLOAT : (up - low) / low 


/* threshold-induced run-time approx */ 
if (t h_flag == YES) ( 

if (th == problem. huge) rt_th = 0.0; 

else rt_th = (th == ((domain) 0)) ? HUGE_FLOAT : (up - th) / th; 
rt = max (rt , rtth) ; 


return rt; 

} 


float get_rt_approx (sp) 
search_ *sp; 

i domain th = problem. huge; 
yesno_ th_flag = NO; 

if (is_threshold_related (sp) == YES) { 
th = get__threshold (sp) ; 
th_flag = YES; 

) • 

return ca lc_rt_approx (sp->gl lb, sp->glub, th_flag, th) ; 

) 


kernel/limit . c 


void eval_rt_approx (sp) 
search_ *sp; 



ISE' kernel, CRHC-92-1 


{ domain th = problem. huge; 
yesno_ th_flag ■ NO; 

if (is__threshold_related (sp) == YES) { 
th = get_threshold (sp) ; 
t h_f lag « YES; 

1 

sp->approx.run_time = ca 1 c_rt_approx (sp->gllb, sp->glub, th_flag / th) ; 


float get_approx (sp) 
search_ *sp; 

( return (max (sp->approx. run_time, sp->approx. approx) ) ; } 

void put_achieved__approx (sp, a) 
search_ *sp; 
float a; 

( 

if (sp->approx. achieved > a) sp->approx. achieved « a; 


void eval_f inal_approx (sp) 
search_ *sp; 

{ 

eval_rt_approx (sp) ; 

put_achieved_approx (sp, getapprox (sp) ) ; 


yesno_ is_t hreshold_related (sp) 
search_ *sp; 
i 

switch (sp->algorithm) ( 

case uRTS: return ( (sp->alg.urts->alg == UNARY__TH) ? YES : NO); break; 
case bRTS: return YES; break; 
case hRTS: return YES; break; 

case uIRD: return ( (sp->alg.uird->alg — UNARY_TH) ? YES : NO); break; 

case bIRD: return YES; break; 

case IDA; return YES; break; 

case DFS^star: return YES; break; 

default: break; 

} 

return NO; 


domain get_threshold (sp) 
search^ *sp; 

( 

switch (sp->algorithm) ( 

case uRTS: return sp->alg. urts->th; break; 

case bRTS: return sp->alg.brts->th; break; 

case hRTS: return sp->alg. hrts->th; break; 

case uIRD: return sp->alg. ui rd->th; break; 

case bIRD: return sp->alg.bird->th; break; 

case IDA: return sp->constr. bound; break; 

case DFS__star: return sp->constr. bound; break; 


default: error ("get_threshold: no such algorithm"); break; 

) 

return problem. huge; 

) 

I ? 


I 


void put_threshold (sp, new_th) 
search_ *sp; 
domain new_th; 

( 

switch (sp->algorithm) ( 

case uRTS: sp->alg.urts->th * new_th; break; 

case bRTS: sp->alg.brts->th = new_th; break; 

case hRTS: sp->alg.hrts->th = new_th; break; 

case uIRD: sp->alg.uird->th new_th; break; 

case bIRD: sp->alg .bird->th - new_th; break; 

case IDA: sp->constr. bound = new_th; break; 


case DFS star: sp->constr .bound =* new^th; break; 

default: error (“put_threshold: no such algorithm"); break; 

) 


void merge_threshold_to_parent (child_sp, sp) 
search_ *child_sp, *sp; 
l domain th = get_threshold (chi ld_sp) ; 

put_threshold (sp, th); 

/** sp->gllb « th; **/ 


/* return 1, if violated; 

* return 0, otherwise. 

*/ 

int is_constr_violated (sp) 
search_ *sp; 

( int signal « 0; 

if ( (get_t ime (sp) >» sp->constr. time) II 
(get_space (sp) >- sp->constr .space) I I 
(get_cst (sp) >» sp->constr .cst ) ) signal « 1; 

lifdef DEBUG 
if (cmd. debug >= 2) 
if (signal) ( 

print f ("constr is violated: ■); 

if (get_t ime (sp) >** sp->constr. time) printf ("time (YES) , "); 
else printf ("time (NO) , "); 

if (get_space (sp) >= sp->constr . space) print f ("space (YES) , ") ; 
else print f ("space (NO) , "); 

if (get_cst (sp) >= sp->constr .cst ) printf ("cst (YES) \n") ; 
else pr int f (“cst (NO) \n* ) ; 

printf (" (%d,»d> , (%d,%d), (%f,%f)\n”, get _tlme (sp) , sp->constr.time, 

get_space (sp) , sp->const r. space, get_cst (sp) , sp->constr. cst) ; 

) 

else printf ("no constr is violated\n") ; 
lendi f 

return signal; 

) 

void put_chi ld_const r (childp, parentp, t_percent, s_percent, cst_percent) 
search_ *childp, *parentp; 
float t percent, s_percent, cst_percent; 

( float time, space; 
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if (parentp->constr . time == huge_long) chi ldp->constr. time = HUG BELONG; 
el se { 

time " (float) (parentp->const r. time - get_t ime (parentp) ) ; 
time = time * t_percent; 
childp->constr . t ime = tolong (t ime) ; 

} 

if (parentp->constr . space -= huge_long) childp->constr. space = HUG£_LONG; 
el se { 

space *= (float) (parentp->constr . space - get_space (parentp) ) ; 
space = space * s_percent; 
childp->constr . space » tolong (space) ; 

\ 

chi ldp->const r . cst = (parentp->constr .cst huge_float) ? 

HUGE_FLOAT : (parentp->constr . cst - get_cst (parentp) ) * cst_percent; 

1 


void set^stop^onst r (sp, t_percent, s_percent, cst_percent) 
search^ *sp; 

float t_percent, s_percent, cst_percent; 

{ float time » tofloat (sp->constr.t ime) , space - tofloat (sp->constr. space) ; 

time = time * t_percent; sp->constr. time = tolong (time) ; 
space = space * s_percent; sp->constr. space - tolong (space) ; 
sp->const r . cst ■ sp->constr .cst * cst_percent; 


kernel/main . c 


main (argc, argv) 
int argc; 
char *argv[); 

( int iter; 

search_ *top_sp; 

/* init some data structures */ 
init_problem_st ruct (sproblem) ; 
init_cmd_st ruct (ficmd) ; 
inlt_io_struct (4io) ; 

pool_manager = NULL; 

/* parse the command line */ 
cmd_line (argc, argv); 

/* problem dependent initialization */ 
ilpd_init () ; 

/* start testbed execution wiht user-specified number of iterations */ 
for (top_sp = NULL, iter = 1; iter <= cmd.iter; iter++) ( 

/* feed the user-supplied seed to the random generator */ 
srand (problem. seed) ; 

/* generate a sample problem for this iteration */ 

gen_sample_problem ( ) ; 

/* initialize environment for current iteration */ 
top_sp = init_environ (top_sp) ; 

/* start search operation */ 
search (top_sp) ; 


/* flush out final result */ 
flush (top_sp) ; 

lifdef DEBUG 

if fcrnd. debug >= 2) evaluate_solution (top__sp) ; 
lendif DEBUG 

/* keep the result of this iteration V 

if (problem. task »» LEARNING) keep_result (iter, top_sp) ; 

/• free the environment */ 

f ree__environ (top^sp, 0 /* not_top_level ** 0 */); 

/* inc rand seed by one */ 
problem. seed++; 

) /* iter Loop */ 

/* print out all the results to the output file named by argv [4) */ 
if (problem. task == LEARNING) pri nt_result (— iter, io.stat); 

} /* main */ 


kernel/para.c 


yesno_ para_termination (pe, num_pe) 
search_ *pe[); 
int num_pe; 

{ int 

for (i = 0; i < numpe; i++) 

if (pe [ 1 1 ->open .list) return NO; 
return YES; 


void para_merge_solut ion (sp, pe, num_pe) 
search_ *sp; 
search_ *pe(); 
int numpe; 

( int i; 

domain glib, glub; 
solution_ ‘incumbent; 

glib = pe (0 ) ->gllb; 
glub = pe(0)->glub; 
incumbent = pe[0] -> Incumbent ; 
for ( i = 1 ; 1 < num_pe? i + + ) 

( 

if (glib > pe[i)->gllb) glib = pe(il->gllb; 
if (glub > pe(i)->glub) 

( 

glub = pe(i)->glub; 
incumbent = pe( i) ->incumbent; 

} 

1 

sp->approx. run time = ((float) (glub - glib)) / tofloat (glib); 
sp->gllb = glib; 
sp->glub - glub; 


void pa ra_merge_staL (sp, pe, num_pe) 
search_ *sp; 
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search_ *pe[); 
int num_pe; 

{ int i; 

stat_ *p = & (sp->stat ) , *c; 

for (i =0; i < num_pe; i++) 

( 

c = & (pe [ i ) ->stat) ; 
p->generated += c->generated; 
p->expanded += c->expanded; 
p->feasible +» c->feasible; 
p->infeasible += c->infeasible; 
p->bounded +** c->bounded; 
p->dominated += c->dominated; 
p->bounding +- c->bounding; 
p->dominating +« c->dominat ing; 
p->hard_bounded + ■ c->hard_bounded; 
p->time += c->time; 
p->v_cst += c->v_cst; 
p->r__cst += c->r_cst; 
p->unix_utime +■ c->unix_utime; 
p->unix__stime += c->unix_st ime; 

I 

p->active = pe[0) ->stat .act ive; 
p->max_acti ve - pe(0 j ->stat .max_act ive; 
for (i = 1; i < num_pe; i++) 

{ 

c - & (pe [ i ) ->st at ) ; 

if (c->active > p->active) p->active = c->active; 

if (c->max_act 1 ve > p->max_act ive) p->max_act ive - c->max_act ive; 

I 

) 


void para_load_balancing (pe, num_pe) 
search^ *pe[); 
int num_pe; 

{ int i; 
node_ *p; 

for (i = 0; 1 < num_pe; i++) 

{ 

if (pe(i] ->open. 1 ist == NULL) 

if ( (p = para_request (pe, i, num_pe) ) ) insert (p, pe(i]); 

I 


node_ *para_request (pe, who, num_pe) 
search_ *pe[); 
int who, num_pe; 

( int i; 

if (pe [who] ->idle_clk >= cmd. comm_idle) 
{ 

for (i - 0; i < num_pe; i++) 
if (pe[ i } ->stat .act ive > 1) 

{ 

pe (who) ->idle_clk = 0; 
return (delete (pe[i))); 

) 

) else (pe(who) ->idle_clk) ++; 
return NULL; 


kernel /prof ile. c 


Idefine TRANSIENT_P HASE 20 

int is_in_transient_phase (sp) 
search_ *sp; 

{ return ( (get_t ime (sp) < TRANS I ENT_P HASE) ) ; ) 


/* if we are doing run-time profile, Real/Virtual_Time_Limit is used as 
* step size for recording run-time approximation 
V 

void pf_run_time (sp, offset_sp) 
search^ *sp, *offset_sp; 

I FILE *fp; 
float accu; 

if (is_ln_t ra ns lent phase (sp) ) return; 
eval_rt_approx (sp) ; 

if (cmd.xon =«= YES) { 

accu = approx2accu (sp->approx. run_time) ; 
if (cmd.pf . last_accu - accu >«=■ cmd. pf. step) { 
cmd.pf . last_accu = accu; 
if (accu !«= 0.0) { 

fp ** fopen (io.rt_pf, "a M ); 

accu = get_of fset_rt_approx (sp, offset_sp) ; 
accu “ approx2accu (accu) ? 
fprintf (fp, "%g %d %g %d\n”, 
accu, 

get_offset_time (sp, offset_sp), 
get_offset_cst (sp, offset_sp) , 
get_of f set_gen (sp, of fset_sp) ) ; 
fclose(fp); 

I 

) 

) else ( 

if ( (cmd.pf . last_approx - sp->approx. run_time) >“ cmd.pf. step) ( 
cmd.pf . la stapprox = sp->approx.run_time; 
if (sp->approx.run_time != huge_float) { 
fp = fopen (io.rtpf, "a"); 
fprintf (fp, M %g %d %g %d\n M , 

getof f set_rt_approx (sp, offset_sp) , 
get_offset_time (sp, offset_sp), 
get_of fset_ cs t (sp, of fset_sp) , 
get_of fset_gen (sp, offset_sp)}; 
fclose (fp) ; 

I 

) 

) 

) 


void pf_space__vs_t ime (sp, offset_sp) 
search_ *sp, *offset_sp; 

( FILE *fp; 

fp = fopen (io. st_pf, "a"); 
fprintf (fp, **%d %d %g %d\n", 

get_of fset_t ime (sp, offset_sp), get__of fset_space (sp, offset 
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get_of fset^cst (sp, offset_sp), get_of f set_gen (sp, offset_sp)); 
fclose(fp); " 

1 


/* collect run-time profile for some search algorithms */ 
void alg_rt_pf (sp, rp) 
search_ *sp; 
regress_ *rp; 

{ long time - get_time (sp) ; 

float a = sp->approx. run-time; 
double x, y; 

if (cmd.xon == YES) { 
a » approx2accu (a); 
if (time == 0 || a ==» 0.0) return; 

} else { 

if (time »» 0 | | a =“ huge_float) return; 

) 

x = loglO (todouble (t ime) ) ; 
y « todouble (a) ; 
rp->n +- 1.0; 
rp->x_sum += x; 
rp->x2_sum += (x * x) ; 
rp->y_sum += y; 
rp->xy_sum (x * y) ; 


/* collect execution profile (search by search) for some search algorithms */ 
void alg_pf (sp, rp) 
search_ *sp; 
regress_ *rp; 

( long time *» get_t ime (sp) ; 
float a = get_approx (sp) ; 
double x, y; 

if (cmd.xon == YES) { 
a « approx2accu (a) ; 
if (time == 0 || a == 0.0) return; 

) else ( 

if (time == 0 || a == huge_float) return; 

} 

x = loglO (todouble (time) ) ; y = todouble (a); 

# ifdef DEBUG 

if (cmd. debug >= 1) print f ("doing alg pf over searches\n") ; 

#endi f 

rp->n += 1.0; 
rp->x_sum += x; 
rp->x2_sum += (x * x) ; 
rp->y_sum += y; 
rp->xy_sum += (x * y) ; 


void alg_pf_predict (sp, rp) 
search^ *sp; 
regress__ *rp; 

\ double det; 
float tmp; 

det = rp->n * rp->x2_sum - rp->x_sum * rp->x_sum; 

rp->beta [0] = (rp->x2^sum * rp->y_sum - rp->x_sum * rp->xy_sum) / det; 
rp->beta[l) = (- rp->x_sum * rp->y_sum + rp->n * rp->xy_sum) / det; 


tmp = (float) (rp->beta (0) + rp->beta(l) * loglO (todouble (sp->constr. time) )) ; 
« ifdef DEBUG 
if (cmd. debug >« 1) ( 

print f ("n=%f, x2_sum=%f, x_sum=%f\n", rp->n, rp->x2_sum, rp->x_sum) ; 
print f ("det=lf, beta0-%f, betal=%f\n", det, rp->beta(0), rp->beta [1 ] ) ; 
print f (“old pred=%g, new pred=%f\n", sp->approx. predicted, tof loat (tmp) ) ; 

} 

lendif 

if (cmd.xon == YES) tmp = accu2approx (tmp) ; 
sp->approx. predicted * tmp; 

if (sp->approx. predicted < 0.0) sp->approx. predicted = 0.0; 


kernel/search . c 


Idefine GetPE ( (search_ **) malloc (cmd.num_pe * sizeof (search^ *))) 

/* the search starter per iteration, 

* the stat structure will be Initialized, since it is entirely a new search. 
V 

void search (sp) 
search_ *sp; 

I 

switch (sp->algorithm) 

\ 


case DEFAULT: default_algorithm (sp); break; 
case LW: lawler_wood_a lgorithm (sp); break; 
case sTCA: stca_algori thm (sp) ; break; 
case pTCA: ptcaa lgorithm (sp) ; break; 
case dTCA: dtca_algorithm (sp) ; break; 
case sTCGD: stcgda lgorithm (sp); break; 
case pTCGD: ptcgda lgorithm (sp); break; 
case uRTS: urt s_algorithm (sp) ; break; 
case bRTS : brt s_a Igor i thm (sp) ; break; 
case hRTS: hrt s_algorithm (sp) ; break; 
case uIRD: uird_algorithm (sp) ; break; 
case bIRD: bird_a lgorithm (sp) ; break; 
case IRA: ira_a lgorithm (sp); break; 
case IDA: ida_a lgorithm (sp) ; break; 
case DFS_star: ida_a lgorithm (sp); break; 


case PBFS: para_algorithm (sp, GetPE, cmd.num_pe); break; 

case PGDFS: para_algorithm (sp, GetPE, cmd. num_pe) ; break; 

case PBAND: para_algorithm (sp, GetPE, cmd.num pe); break; 

default: error ("search: no such algorit hm\n") ; break; 

) 

) 

lundef GetPE 


search_ *create_brother_search (sp) 
search_ *sp; 

I search_ *new_sp; 

new_sp = (search_ *) malloc (sizeof (search) ) ; 
init_search_struct (new_sp, 1, 1); 
new_sp~>strategy = sp->strategy; 
new_sp->algor it hm = sp->algorithm; 

new_sp->brother. - sp; 
new_sp->parent = sp->parent; 
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attach_alg_struct (new_sp) ; 
return new_sp; 


search_ ‘create_child_search (sp) 
search_ *sp; 

{ search_ *new_sp; 

new_sp = (search_ *) mal loc (si zeof (search_) ) ; 
init_search_struct (newsp, 1, 1); 
new_sp->strategy *■ sp->strategy; 
new_sp->algorithm - sp->algorlthm; 

new_sp->brother - sp->child; 
new_sp->parent = sp; 
sp->child = new_sp; 

attach_alg_struct (new_sp) ; 
return new_sp; 


/* some book-keeping for certain algorithms */ 
void alg_entry (sp, node) 
search_ *sp; 
node_ ‘node; 


switch (sp->a 
case dTCA; 
case uRTS; 
case bRTS: 
case hRTS: 
default : 


lgorithm) ( 
dtca_entry (sp) 
urts_entry (sp, 
brts_entry (sp, 
hrtsentry (sp, 


break; 
node); break; 
node); break; 
node); break; 


( 

) 


break; 


•define is_aig_skip_pruning (RTS_IRD_iter == 1 it sp->stat . feasible <= 0) 

int is_bounded (child, sp) 
node_ ‘child; 
search_ *sp; 

< 

lif defined (RTS_ENHANCE) | | defined (IRD_ENHANCE) 
if (is_alg_skip_pruning) return 0; 

•endif 

return (chlld->lowb >= expected_opt (sp) ? 1 : 0); 

1 


void dominating (node, sp) node_ ‘node; search_ *sp; ( } 


void bounding (sp) 
search_ *sp; 

I int 1; 

void young_boundlng (); 


switch (sp->strategy) ( 

case BFS: bptree_bounding (sp) ; break; 

case GDFS: list_bounding (sp) ; break; 
case BAND: btreebounding (sp) ; 

for (1 = sp->band.ceiling_depth; 

young_bounding (sp, i); 
break) 


default : 


brea k ; 


1 


I 


i <= sp->band.f loor_depth; i++) 


void bptree_bounding (sp) 
search_ *sp; 

I 

lifdef BPLUS_TREE 
node_ *p, *q; 
long free bptree (); 

for (p - sp->open.bptree; p; ) ( 
if (ls_bounded (p, sp) ) ( 

if (p =“ sp->open .bpt ree) sp->open.bptree - p->left; 
if (p->up) p->up->right - p->left; 
if (p->left) p->left->up = p->up; 

/* re-check its left subtree */ 
q = Pf 

p - p->left; 

/* rm itself and its right subtree */ 
q->left = NULL; 

sp->stat. active -= freebptree (q) ; 

) else p = p->right; 

) 

• else 

btree_bounding (sp) ; 
lend! f 
I 


int is_hard_bounded (child, sp) 
node_ ‘child; 
search_ *sp; 

( 

»if defined (RTS_ENHANCE) | | defined (IRD_ENHANCE) 
if (is_alg_skip_pruning) return 0; 

•endif 

if (No_Upper_Bound =»= YES) return (child->lowb > sp->constr. bound ? 
else return (child->lowb >- sp->const r. bound ? 1 : 0) ; 

I 

fiundef is_alg_sklp_pruning 


long free_bptree (p) 
node_ ‘p; 

( long count - 0; 

if (p) ( 
count = 1; 

if (p->left) count free_bptree (p->left); 

1 ; 0); if (p-?right) count += free_bptree (p->right); 

p->left = p->right -- p->up - NULL; 
freenode (p) ; 

) 

return count; 


1 
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void btree_bounding (sp) 
search_ *sp; 

( node_ *p, *q; 
long count = 0; 

q = p = sp->open .btree ; 
while (p) { 

if (is_bounded (p, sp) ) { 
count++; 

if (p »» sp->open. btree) { 
sp->open. btree “ p->next; 
free_node (p) ; 

Q ■ p “ sp->open. btree; 

) 

else { 

q->next « p->next; 
free_node (p) ; 
p ° q->next; 

) 

} 

else { 

P = <q » p)->next; 

) 

) 

sp->stat . active -» count; 


void list_bounding (sp) 
search_ *sp; 

{ node_ *p, *q; 
long count = 0; 

q = p = sp->open. list ; 
while (p) ( 

if (is_bounded (p, sp) ) | 
count ++; 

if (p “* sp->open. list) [ 
sp->open. list = p->next; 
f ree_node (p) ; 
q = p = sp->open. list ; 

) 

else { 

q->next = p->next; 
f ree_node (p) ; 
p “ q->next; 

) 

) 

else { 

P = (q 53 p)->next; 

} 

1 


q = p « (sp->band.tree+depth) ->young; 
while (p) { 

if (isbounded (p, sp) ) { 
count ++; 

if (p “■ (sp->band.tree+depth) ->young) i 
(sp->band.tree+depth) ->young = p->next; 
free_node (p) ; 

q = p = (sp->band. tree+depth) ->young; 

) 

else | 

q->next = p->next; 
free_node <p) ; 
p = q-*>next; 

1 

} 

else { 

p = (q - p)->next; 

) 

) 

sp->stat .active -» count; 


void set_search_message (msgp, style, rp, alg_entry, rt_pf, st_pf) 
search_message_ *msgp; 
search_style_ style; 
regress_ *rp; 

yesno_ alg_entry, rtpf, stpf; 

1 

msgp->style = style; 
msgp->rp - rp; 

msgp->alg_ent ry «* algentry; 
msgp->rt_pf ■ rt_pf; 
msgp->st_pf “ stpf; 
msgp->feasible - NO; 


is_feasible_or_equiv (node) 
node_ ‘node; 

{ 

return is feasible (node); 

} 


kernel/stat ,c 


void update_stat (sp) 
search_ *sp; 

{ stat_ *p = &{sp->stat); 
long interval; 


sp->stat . active -= count; 

) 


/* virtual time, space are set in 'insert'; virtual cst is set here */ 
p->v_cst f= tof loat (p->act ive) ; 


void young_bounding (sp, depth) 
search_ *sp; 
int depth; 

{ node_ *p, * q; 
long count » 0; 


/* real time, space, cst are set here */ 
times (&break_t ime) ; 

p->time += (interval = (break_time.tms_utlme - last_time. tms_utime) ) ; 
last_time = break_time; 

p->r_cst t» {(float) (p->active * node_conf.node_s.ize * interval)); 
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/* update max_active, if necessary */ 
p->max_act ive = max (p->max_act ive, l+p->act ive) ; 
} /* udpate_stat */ 


p->r_cst + ** c->r_cst; 
p->unix_ut ime += c->unix_ut ime; 
p->unix_st ime += c->unix_st ime; 


long get_time (sp) 
search_ *sp; 

1 

fifdef TIME_IS_GEN 

return ((cmd. count — REAL) ? sp->stat . time : sp->stat .generated) ; 
lelse 

return ((cmd. count « REAL) ? sp->stat .t ime : sp->stat .expanded) ; 
lendif 
} 


long get_space (sp) 
search_ *sp; 

( long space - sp->stat .act ive; 

if (cmd. count -« REAL) space *» node_conf . nodesize; 
return space; 


long get _max_space (sp) 
search_ *sp; 

( long max_space * sp->stat .max_act ive; 

if (cmd. count ==> REAL) max_space *« nodeconf . node_si ze; 
return max_space; 


float get_cst (sp) 
search^ *sp; 

( return ((cmd. count =- REAL) ? sp->stat . rest ; sp->stat . v_cst ) ; ) 


long get_pruned (sp) 
search_ *sp; 

( stat_ *p = &(sp->stat); 

return (p->bounded + p->dominated + p->bounding + p->dominating) ; 


void merge_stat_to_parent (childp, parentp) 
search_ ‘childp, ‘parentp; 

{ stat_ ‘p = & (parentp->stat) , *c = & (childp->stat) ; 

p->generated +« c->generated; 
p->expanded +<= c->expanded; 
p->feasible += c->feasible; 
p->infeasible +» c->infeasible; 

p->act ive - c->active; /* active space is not additive */ 

p->bounded += c->bounded; 

p->dominated += c->dominated; 

p->bounding +- c->bounding; 

p->dominat ing +* c->dominat ing; 

p->hard_bounded +- c->hard_bounded; 

if (c->max__active > p->max_acti ve) p->max_act ive = c->max_active; 
p->time += c->time; 
p~>v_cst +« c->v__cst; 


void merge_approx_to_parent (chi 1 dp, parentp) 
search_ ‘childp, ‘parentp; 

( put a chieved_approx (parentp, (parentp->approx . run_t ime ° get_approx (chi ldp) ) ) 


void merge_sol_to_parent (chi ldp, parentp) 
search^ * chi ldp, ‘parentp; 

{ 

if (parentp->glub > childp->glub) I 
parentp->glub = chi ldp->glub; 
parentp->incumbent = childp->incumbent; 

I 

if (parentp->gl lb < chi ldp->gllb) parentp->gl lb - childp->gllb; 


void inherit_sol_from_parent (chi ldp, parentp) 
search^ ‘childp, ‘parentp; 

( 

chi ldp->incumbent ° parentp->incumbent ; 

chi ldp->glub - childp->x_root_ub - parentp->glub; 

chi ldp->gllb - childp->x_root_lb - parentp->gl lb; 

I 


float get_o f f set_rt_approx (sp, offset_sp) 
search_ *sp, ‘offsetsp; 

( float rt_approx; 


) 


rt_approx “ get_approx (sp) ; 

if (of fset_sp) rt_approx » (rt_approx < of fset_sp->spprox. achieved) 

rt_approx : of fset_sp->approx. achieved; 


return rt_approx; 


long get_of fset_t ime (sp, offset_sp) 
search_ *sp, ‘offsetsp; 

{ 

if (offset_sp) return (get_time (sp) + get_time (of fset_sp) ) ; 
else return get_time (sp) ; 

) 


long, getof fset_space (sp, offset_sp) 
search_ *sp, *offset_sp; 

{ long space; 

if (offset sp) space = sp->stat .active + of fset_sp->stat .active; 
else space = sp->stat .act ive; 

if (cmd. count == REAL) space *- node_conf .node_si ze; 
return space; 


float get_of fset_cst (sp, offset_sp) 
search_ *sp, *offset_sp; 

( 
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if (cmd. count == REAL) 

if (offset_sp) return {sp->stat . r_cst + of f set_sp->stat .r_cst ) ; 
else return sp->stat ,r_cst; 

else if (offset_sp) return (sp->stat . v_cst + of f set_sp->stat . v_cst ) ; 
else return sp->stat . v_cst; 


long get_of f set_max_space (sp, offset_sp) 
search_ *sp, *offset_sp; 

{ long space; 

if (offset_sp) space = (sp->stat .max_act ive > = of fset__sp->stat .max_active) 
sp->stat ,max_active : of f set_sp->stat ,max_act ive; 
else space = sp->stat .max_act ive; 

if (cmd. count »» REAL) space node_conf .node_size; 
return space; 


long get_of fset_gen (sp, offset_sp) 
search_ *sp, *offset_sp; 
t 

return ( ( (offset_sp) ? (sp->stat .generated + of fset_sp->stat .generated) : 
(sp->stat .generated) ) ) ; 


} 
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Fri Jan 31 09:59:58 CST 1992 


open/bandl 1st . c 


♦define young_list (sp, dept h) 
♦define adulc_count {sp, depth) 
♦define bandwidth (sp, depth) 


(sp->band.tree+depth) ->young 
(sp->band. tree+depth) ->count 
(sp->band.tree+depth) ->width 


/** unfortunately, there is no new adult node **/ 

/** check young nodes less deep in the search tree **/ 
sp->band. floordepth — ; 

if (sp->band. floor_depth < sp->band. ceiling_depth) { 
sp->stat . active - 0; 
return NULL; 

) 


extern node_ *btree_delete () ; 
void bt ree__insert (); 

node_ *young_delete (); 
void young__insert (); 

♦ ifdef SWAP_8AND__NODE 
node_ *swap_band_node (); 

♦endi f 


node_ *get_band_node (sp) 
search_ *sp; 

( node_ *node; 
tree_ *treep; 
int i, depth; 
long sum = 0; 

♦ifdef PEEK_ACTIVE_LIST 
print f ("NEW STATISTICSW) ; 

for (i = 0, node ** sp->open .btree; node; node « node->next) i++; 
printf ("sp->open.btree=%d\n", i); 
sum + « i; 

for (depth “ sp->band . cei ling_depth; depth <= sp->band. f loor_depth; depth++) { 
for (i = 0, node = young__list (sp, depth); node; node “ node->next) i++; 
printf ("depth“%d, young=%d\n M , depth, i); 
sum += i; 

) 

printf (”sp->stat .act ive=%d, sum=%d\n M , sp->stat . act ive, sum); 

♦endif 

if (sp“>stat . active o 0) sp->stat . act i ve = 0; 
else sp->stat .act ive — ; 

if ((node = btree_delete (sp))) return node; 

/** update ceiling **/ 

for (depth = sp->band.ceiling__depth; depth <= sp->band. f loor_dept h; depth++) 
if (young_list (sp, depth)) break; 
sp->band. ceil ing_depth = depth; 

while (1) ( 

/** try this depth, include young nodes into band **/ 
treep - sp->band . tree + sp->band. floor_depth; 
treep->count = 0; 

for (i =0; i < treep->width; i++) 

if ((node = young_delete (sp, sp~>band. f loor_depth) ) ) { 
btree_insert (node, sp) ; 
treep->count ++; 

} 

else break; 

/** check if new adult nodes exist **/ 
if ((node *» bt ree__delete (sp) ) ) return node; 


void put_band_node (children, sp) 
node_ * children; 
search^ *sp; 

( node_ * child, *node, *new_node; 
tree_ * treep; 
int count, depth, num, i; 

if (sp->stat . act ive < 0) sp->stat .act ive = 0; 
if (children -» NULL) return; 

depth ■ chi ldren->depth; 
if (depth > sp->band. floor_depth) { 
sp->band. floor_depth «* depth; 
if (depth > MaxDepth) ( 

num “ 2 * MaxDepth + 1; 

treep - (tree_ *) malloc (num * sizeof (tree_)); 
for (i ** 0; i <= MaxDepth; i + + ) I 

(treep+i) ->young = (sp->band. tree+i) ->young; 
(treep+i) ->count - (sp->band. tree+i) ->count ; 
(treep+i) ->width = (sp->band. tree+i) ->wldth; 

) 

for (1 ■ MaxDepth+1; i < num; i++) 

init_tree_struct (treep, 1, sp->band. init_width) ; 

free (sp->band. tree) ; 
sp->band.tree «* treep; 

MaxDepth - ( — num) ; 

) 

) 

while ((child « children)) { 
sp->stat .act! ve ++; 
children — children->brother; 
younginsert (child, depth, sp) ; 

} 

count * adult_count (sp, depth) ; 
while (count < bandwidth (sp, depth)) 

if ((node = young_delete (sp, depth))) { 
btree insert (node, sp) ; 
count++; 

) else break; 

adult_count (sp, depth) » count; 

♦ifdef SWAP_BAND_NODE 

while ((node » young_delete (sp, depth))) ( 
new_node = swap_band_node (node, sp) ; 
young^insert (new_node, depth, sp) ; 
if (node == new_node) break; 

) 

♦endi f 
) 
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Jdefine young_sort_key (node) (node->lowb) 

/** insert a node into a b+ tree, ascendingly **/ 
void young_insert {node, depth, sp) 
node_ *node; 
int depth; 
search_ *sp; 

{ node_ *p, *q; 
domain node_key; 

if (young_list (sp, depth)) { 

node_key = young_sort_key (node); 

for (q - p - young_list (sp, depth); p; p - (q - p)->next) { 
if (node_key < young_sort_key (p) ) { 

if (p young_list (sp, depth)) | 

(young_list (sp, depth) - node)->next » p; 
return; 

} else { 

(q->next » node)->next « p; 
return; 

} /* if-then-else */ 

) /* if-then */ 

} /* for */ 

if O P) (q->next « node)->next = NULL; 

) 

else (young_list (sp, depth) = node)->next = NULL; 

\ 


/** delete a node from a b+ tree **/ 
node_ *young_delete (sp, depth) 
search^ *sp; 
int depth; 

{ node_ *q; 

if (young_list (sp, depth)) 

young_list (sp, depth) = (q = young list (sp, depth) ) ->next ; 
else return NULL; 

return q; 


int is_young_empty (sp, depth) 
search_ ’'sp; 
int depth; 

{ return (young_list (sp, depth) == NULL); ) 

#undef young_list 
Sundef adult_count 
#undef bandwidth 
#undef young_sort_key 


open/bptree . c 


# ifdef BPLUSJFREE 

Sdefine bpt ree__sort_key (node) (node->lowb) 

/* insert a node into a b_plus tree, ascendingly */ 
void bpt ree_insert (node, sp) 


node_ *node; 
search_ *sp; 

{ node_ *p; 

domain node_key; 

node->left = node->right = NULL; 

if (sp->strategy != BAND) 

if (sp->stat . act i ve < 0) sp->stat .act ive *= 0; 
else sp->stat .act ive++; 

if (sp->open.bptree) ( 

node_key = bpt ree_sort_key (node) ; 

for (p = sp->open.bptree; p; ) ( 

if (node_key < bptree_sort_key (p) ) ( 
if (p->left) p = p->left; 
else { 

p->left = node; 
node->up » p; 
return; 

) 

} else ( 

if (p->right) p » p->right; 
else { 

p->right = node; 
node->up - p; 
return; 

} 

) 

1 

error ("bpt ree_insert ; Internal error"); 

) 

sp->open.bptree “ node; 
node->up - NULL; 


/* delete a node from a b_plus tree */ 
node_ *bptree_delete (sp) 
search_ *sp; 

[ node_ *p; 

if (sp->open. bpt ree) { 

for (p = sp->open.bptree; p->left; p - p->left) 
if (p =- sp->open .bpt ree) ( 
sp->open.bpt ree = p->right; 
if (p->right) p->right->up = NULL; 

) else { 

p->up->left = p->right; 
if (p->right) p->right->up « p->up; 

) 

p->left = p->right = p->up = NULL; 
return p; 

) 

return NULL; 

) 
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int is_bpt ree_empty (sp) 
search_ *sp; 

{ return (sp->open .bpt ree == NULL); } 


#undef bptree_sort_key (node) 

#else BPLUSJTREE 

void bpt ree_insert (node, sp) 
node_ ‘node; 
search_ *sp; 

( btree_insert (node, sp) ; ) 

node_ *bptree_delete (sp) 
search_ *sp; 

( return btree_delete (sp); ) 

int i s_bptree_empty (sp) 
search_ *sp; 

{ return is_btree_empty (sp); ) 

flendi f 


open/btree.c 


#define bt ree sort_key (node) (node->lowb) 

/* insert a node into a virtual b+ tree, ascendingly */ 
void btree_insert (node, sp) 
node_ ‘node; 
search_ ‘sp; 

{ node_ ‘p, ‘q; 
domain node_key; 

if (sp->strategy != BAND) 

if (sp->stat .active < 0) sp->stat .act ive = 0; 
else sp->stat .act ive++; 

if (sp->open.btree) ( 

node_key = bt ree_sort_key (node) ; 

for (q = p = sp->open .btree; p; p ■ (q - p)->next) { 
if (node_key < btree_sort_key (p) ) ( 
if (p == sp->open.btree) ( 

(sp->open.btree *= node) ->next = p; 
return; 

) 

else { 

(q->next = node)->next =• p; 
return; 

) /* if-then-else */ 

. } /* if-then */ 

) /* for */ 

if ( ! p) (q->next = node) ->next = NULL; 

} 

else (sp->open. btree = node)->next = NULL; 


/* delete a node from a b+ tree */ 
node_ *bt ree^delete (sp) 


search_ *sp; 

{ node_ *q; 

if (sp->open.btree) sp->open.btree = (q ° sp->open. bt ree) ->next; 
else ( 

if (sp->strategy != BAND) sp->stat . active = 0; 
return NULL; 

} 

if (sp->strategy != BAND) 

if (sp->stat. active <= 0) sp->stat .active = 0; 
else sp->stat .act ive — ; 

return q; 

} 


int is_btree_empty (sp) 
search_ *sp; 

{ return (sp->open.bt ree == NULL); ) 


f i f de'f SWAP_BAND_NODE 
node_ *swap_band_node (node, sp) 
node_ ‘node; 
search_ ‘sp; 

{ node_ ‘p, *q, ‘temp; 
domain node_key; 

if (sp->open.btree) ( 

nodekey ° btree_sort_key (node) ; 

for (q = p = sp->open.btree; p; p » (q * p)->next) { 

if (node->depth p->depth && nodejcey < btree_sort_key (p) ) ( 

if (p sp->open.btree) (sp->open.btree = node)->next = p->next? 

else (q->next = node)->next *» p->next; 

temp = p; p = node; node = temp; /“ swap “/ 

node_key » bt ree_sort_key (node) ; 

) /* if-then ‘/ 

} /‘ for V 

) 

return node; 

) 

•endi f 

•undef btree_sort_key (node) 


open/ 1 1st .c 


/* insert a node into an ordered list , ascendingly */ 
void list_insert (node, sp) 
node_ ‘node; 
search_ *sp; 

( node__ *p, *q; 
domain node_key; 

if (sp->stat .active < 0) sp->stat .active = 0; 
else sp->stat .act ive++; 


if (sp->open. list) ( 
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node__key = sort_key (node, sp) ; 

for (q = p = sp->open. list; p; p = (q = p)->next) | 
if (node_key < sort_key(p, sp) ) { 

/** insert “/ 

if (p «» sp->open. list ) (sp->open. list » node) ->next = p; 

else (q->next « node)->next = p; 

return; 

} 

1 

if (! p) (q->next = node)->next = NULL; 

) 

else (sp->open. list * node)->next = NULL; 


/* delete a node from a linked list */ 
node_ *list_delete (sp) 

search_ *sp; ' 

{ node_ *q « NULL; 

if (sp->open. list) sp->open. list = (q = sp->open.list)->next; 

else ( sp->stat .act ive - 0; return NULL; ) 

if (sp->stat .active < 0) sp->stat .active = 0; 

else sp->st at . act ive--; 

return q; 


int is_list_empty (sp) 
search^ *sp; 

( return (sp->open. list == NULL); } 


open/pool .c 


node_ ‘get_search_node_from_pool () 

[ int offset, ‘pool, i; 
node_ ‘p; 

/* if the pool of search nodes are empty, then 

* allocate Allocat ionSize search nodes at a time to avoid 

* spreadout of search nodes to entire virtual 

* memory. 

*/ 


p->next = ( (node_ *) (pool + offset * (i + 1))); 

I 

p->next = NULL; 
pd region () ; 

} 

lifdef DEBUG 

if (cmd. debug >= 4) print f ("now, get a search node\n"); 
lendi f 

/* now, pool has free search nodes */ 
pool_manager *» (p «= pool_manager) ->next ; 
NumNodesTaken++ ; 
return p; 


void dispose_search_node_to_pool (node) 
node_ ‘node; 

( 

node->next =* pool_manager; 
pool_manager = node; 

NumNodesTaken — ; 


open/sort ,c 


void Insert (node, sp) 
node_ ‘node; 
search_ *sp; 

( 


switch (sp->strategy) { 

case GBB; list_insert (node, sp) ; break; 
case BFS: bptree insert (node, sp) ; break; 

case DFS: stack_push (node, sp) ; break; 

case GDFS : list Insert (node, sp) ; break; 
case BAND: node->brother « NULL; 

put_band node (node, sp) ; break; 
default: list insert (node, sp) ; break; 


#ifdef DEBUG 

if (cmd. debug >= 4) print f ( "enter get_search_node_from_pool\n") ; 
lendi f 

offset «* node_conf . node_si ze / sizeof(int); 

if (! pool_manager) { /* request space from OS */ 

lifdef DEBUG 

if (cmd. debug >« 4) print f ( "allocate main body\n"); 
lendi f 

/* allocate entire chunk of search nodes, including 
* main body and associative regions 
*/ 

pool = (int *) malloc (Allocat ionSize * node_conf .node_size) ; 
pool_manager = (node_ *) pool; 

for (i =0; i < Allocat ionSi ze; i++) ( 
p = ( (node_ *) (pool + offset * i)); 


node_ ‘delete (sp) 
search_ ‘sp; 

{ 


switch (sp->strategy) ( 

case GBB: return 1 ist_delete (sp) ; 

case BFS: return bpt reedelete (sp) ; 

case DFS: return stacktop (sp) ; 

case GDFS: return list_delete (sp) ; 
case BAND: return get_band_node (sp) ; 
default: return 1 i st_delete (sp) ; 


} 


break; 

break; 

break; 

break; 

break; 

break; 


domain sort_key (node, sp) 
node_ ‘node; 
search_ *sp; 

( domain key; 
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if (sp->st rategy **** BAND) return node->lowb; 
if (problem, domain *=» INT) 

key = (sp->strategy =■ BFS) ? (node->lowb) : (HUGE_DEPTH - node->depth) ; 
else 

key = (sp->strategy — BFS) ? (node->lowb) : ((float) (HUGE_DEPTH - node->dept h) ) 
return key; 


int i s_open_empty (sp) 
search_ *sp; 

{ return (sp->stat . active ==0); ) 


open/stack. c 


void stack_push (node, sp) 
node__ *node; 
search_ *sp; 

{ 

if (sp->stat . act ive < 0) sp->stat .active = 0; 
else sp->stat .act ive++; 
node-->next = sp->open . stack; 
sp->open. stack * node; 

) 


int i s__stack_empty (sp) 
search_ *sp; 

( return (sp->open . stack == NULL); ) 


node_ *stack_top (sp) search_ *sp; { return sp->open. stack; ) 

void stack_pop (sp) 
search_ *sp; 

( node___ *temp; 

if (temp = sp->open .stack) ( 

if (sp->stat . active < 0) sp->stat .act ive * 0; 
else sp->stat .act ive — ; 
sp->open. stack = temp->next; 
f ree__node (temp) ; 

1 

else sp->stat .act ive = 0; /* empty stack */ 

) 


node_ *stack_bottom (sp) 
search^ *sp; 

( node_ * p; 

if ( (p = sp->open. stack) == NULL) return NULL; 
whi,Le (p->next) p = p->next; 
return p; 
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solver /ats .pgm/define. h 


Iifndef ATS_def ine_h_ 

Idefine ATS define h_ 

Iifndef SYMJTSP 
Iifndef ASYMJTSP 
Idefine ASYMJTSP 
lendi f 
lendi f 

typedef float domain; 

Idefine Domain FLOAT 

Idefine Allocat ionSize 256 

Idefine PDSI_PART \ 

int "open; /* open cities, same as "live if this node is new, \ 

and it' s different from "live if compound node. \ 
(not considered yet) */ \ 

int nvisit; /" num of cities visited already */ \ 

int "visited; /* visited cities */ 


/" for problem generation "/ 

Idefine MaxProblemS i ze 200 

•define MaxLinkSize (MaxProblemSize * MaxProblemSize) 

/* geographical limit of graph */ 

Idefine GeoLimit 100 

typedef struct 
( 

int city (MaxProblemSize) ; 

} solution_; 

Idefine encodeW(x,y) (x * nCities + y) 

Idefine decodeW (road) * (WEIGHT + road) 

Idefine Weight (x, y) * (WEIGHT + encodeW (x, y) ) 

Idefine sortW (index) "(SORTW + index) 

Idefine decodeX (road) ((int) (road / nCities)) 

Idefine decodeY (road) (road % nCities) 

lendi f ATS define h 


solver/ ats. pgm/abc. c 


lifdef SYM_TSP 

float complFactor = 1.0; /" completeness factor of out degree "/ 

• else 

float complFactor = 0.05; /* completeness factor of out degree */ 

lendi f 

int nCities; /* | of cities */ 

int nRoads; /* | of roads "/ 

float "WEIGHT = NULL; /* weights of edges*/ 

int "SORTW = NULL; /* sorted version */ 

int ubArray (MaxProblemSize) ; 


int 


OpenCity (MaxProblemSize) ; 


/* temp storage for open */ 


int LiveCity (MaxProblemSize J ; /" temp storage for live */ 

int VisitedRoad (MaxProblemSize) ; /* temp storage for tracing roads */ 


sol ver /ats. pgm/ bound. c 


domain ats_eval_lowb () , ats_eval_upb (); 


/** Lower bound is calculated by spanning-tree heuristic **/ 

void evaluate_lower_bound (node) 
node_ "node; 

( 

lifdef DEBUG 

if (cmd. debug >= 4) printf C'eval lowb\n") ; 
lendi f 

node->lowb «* (is_pre_goal (node)) ? node->g_cost : ats_eval_lowb (node); 

) 

domain ats_eval_lowb (node) 
node_ "node; 

( domain cost = node->g_cost ; 

int num_l ive_cit ies ■ nCities - node->nvisit; 

int num_roads = node->nvisit - 1; /" visited roads "/ 

int entity «* node->entlty; 

int i, j, road, x, y, si, s2, the_f irst_not_done, the_last_not_done; 
int vertex (MaxProblemSi ze 1 ; 

/* find which cities not visited yet */ 
trace_live(node) ; 

/** LiveCity(i) = 1 *»> live; otherwise, 0. **/ 

LiveCity (entity ) = 1; 
num_l ive_cities++; 

for (1 = 0; i < nCities; i++) vertex(i) = LiveCity(i) ? i ; -1; 

/" find which roads have been traversed and put into VisitedRoad */ 
trace_road (node) ; 

lifdef DEBUG 
if (cmd. debug >= 5) { 

printf (“live cities=%d\n“, num_live_cit ies) ; 

for (i =0; i < nCities; i ++) print f ("%d-th clty=%d\n*', i, Li veCity (i ) ) '; 
printf ( M num_roads=%d\n", num_roads) ; 

for (1 =0; i < num_roads; i+ + ) print f (**%d-th road=%d\n*', i, VisitedRoad ( i )) ; 

) 

lend! f 

* 

/* spanning-tree cost */ 

for (i = 0; (i < nRoads) && (num_live_cities > 0); i++) ( 
road » sortW(i); 

if ( ! is_member (road, VisitedRoad, 0, num_roads)) ( 
x = decodeX (road) ; 
y = decodeY (road) ; 
si = vertex(x); 
s2 = vertex (y); 

if ((si ! - -1) (s2 ! « -1) && (si [= s2) ) ( 

num_live_ci ties — ; 
cost +- decodeW (road) ; 
for (j = 0; j < nCities; j++) 

if (vertex(j) == s2) vertex(j) = si; 

• ) 
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) 

I 

/** cost of connecting spanning tree and the tree explored already **/ 
for (1 - 0; 1 < nRoads; 1++) ( 
road ■ sortW (i); 

if (! ls_member (road, VlsitedRoad, 0, nura_roads)) ( 
x = decodeX (road) ; 
y ” decodeY (road) ; 

If (x == 0) 

If (LlveClty (y | ) ( cost += decodeW (road); break; ) 
else If (y — 0) 

If (LlveClty[x) ) | cost += decodeW (road); break; ) 

) 

) 

return cost; 

) 


/** Upper bound Is calculated by the hlll-cllmblng method if applicable, 
** otherwise, a greedy back-tracking method Is applied. **/ 

solution_ *evaluate_upper__bound (node, sol) 
node_ *node; 
solutlon_ *sol; 

( lnt 1, num_clties = node->nvlsit; 
llfdef DEBUG 

If (cmd. debug >= 4) printf(“eval upb\n"); 
lendlf 

If (ls_feaslble (node) ) ( 

If (num_citles !- nClties) error ("evaluate_upper_bound") ; 

for (1 = 0; 1 < num_clt les; 1 ++ ) sol->clty(i) = * (node->vlslted + 1); 

node->upb - node->g_cost; 

) 

else node->upb = ats_eval_upb (node, sol); 
return sol; 


domain ats_eval_upb (node, sol) 
node_ “node; 
solutlon_ *sol; 

( lnt x, y, who, 1, num_cities ** node->nvisit; 
domain cost = node->g_cost, temp, tempo, best, bk_f indsol () ; 

for (1 =0; 1 < num_cities; 1++) sol->city(ll = * (node->vlslted +1); 
llfdef DEBUG 
If (cmd. debug >“ 5) 

for (1 = 0; 1 < num_cities; 1++) printf ("iMd, city>%d\n“, 1, sol->clty ( 1 1 ) ; 
lendlf 

t race_l ive (node) ; 

x = node->ent ity; 
while (1) ( 

/* find the best next city */ 
best = HUGE_FLOAT; 
who = -1; 

for (y = 1; y < nClties; y++) ( 

if (LiveCity(y) (temp = Weight(x,y)) != problem. huge) ( 
if (num_cities == nClties - 1) 


if ((tempo - Weight (y,0)) != problem. huge) temp +- tempo; 
else continue; 

If (best > temp) ( best = temp; who = y; ) 

) 

) 

llfdef DEBUG 

If (cmd. debug >= 5) print f (“num_cltles=%d, who=%d\n", num_citles, who) ; 
lendlf 

/* record the best next city */ 

If (who =- -1) ( 

/** OLD VERSION, NOT APPROPRIATE. 

** if (node -- ROOT) return bk_flnd_sol (node, sol); 

** else return problem. huge; **/ 
return problem. huge; 

) 

sol->clty (num_cities++) = who; 

If (num_cit les — nClties) return (cost + best) ; 

LiveCltytwho) - 0; 
cost += best; 
x *■ who; 

1 

I 

domain bk_find_sol (node, sol) 
node *node; 
solution_ *sol; 

I lnt num_citles = node->nvlslt; 
lnt x = node->entlty; 
lnt next - 1, y, 1; 
domain cost =» node->g_cost; 
domain temp, tempt); 

llfdef DEBUG 

if (cmd. debug >■= 4 ) printf (“enter bk_flnd_sol\n“) ; 
if (cmd. debug >= 5) 

for (i =0; 1 < node->nvlslt; 1++) 

printf (“l=*d, city-%d\n“, 1, sol->clty ( 1 ) ) ; 
lendlf 

t race_l lve (node) ; 

while (num_clties < nClties) ( 

for (y - next; y < nClties; y+i) ( 

if (LlveClty ly) ss (temp = Weight (x,y) ) != problem. huge) 1 
If (num_clties -« nClties - 1) 

if ({tempo - Weight (y,0>) !*• problem. huge) temp +• tempO; 
else continue; 
llfdef DEBUG 
if (cmd. debug >= 5) 

printf (“num_clties=%d, clty=%d\n", num_cities, y) ; 
iendi f 

cost += temp; 

LlveClty [yl = 0; 

sol->cl ty (num cit iesr+ 1 = (x = y) ; 

next =1; 

break; 

I 

I 

if (y >- nClties) ( 

if (node->nvisit == numcltles) return problem. huge; /* infeasible 
/* recover to prev stage */ 
y - sol->city( — num_clties]; 

LiveClty(y) - 1; 



ISE' solver' ats .pgm, CRHC-92-1 


x = sol->city [num_cltles - 1|; 
cost -= Weight (x,y); 
next = y + 1; 

) 

) 

return cost; 


trace_live (node) 
node_ ‘node; 

( int 1; 

/* reset LiveClty array */ 

for (i = 0; 1 < nClties; 1++) LiveCltylil = 1; 

/* mark real live city */ 

for (1 = 0; 1 < node->nvisit; 1++) LiveClty (* (node->vlslted +1)] - 0 ; 


trace_road (node) 
node_ *node; 

( int 1, j, city_l, clty_2; 

If (node->nvisit >= 2) { 

for (1=0, j = 1; j < node->nvislt; 1++, j++) ( 
city_l = * (node->vlsited + 1); 
clty_2 = * (node->vislted + j); 

VisltedRoad (i | = encodeW (clty_l, clty_2); 

I 

) 

I 


solver/ats.pgm/gen.c 


/* ******************************************************************** 

* Traveling Salesperson Problem Generator: 

* 1. incomplete graph. 

* 2. asymmetric graph. 

* 3. triangular inequality is satisfied for existing arcs. 

* (existing arcs == arcs of finite distance) 

* 4. completeness factor. (0,1) 

* ******************************************************************** 


void gen_sample_problem () 

{ float best, tmp, dx, dy, dist, x [MaxProblemSize) , y [MaxProblemSize } ; 
int i, j, best_one, the_end, the_one; 

# if ndef SYM_TSP 

FILE *fp, *fopen () ; 

No_Upper_Bound = YES; 

#endif 

nClties ** problem. si ze; 

/** build the map **/ 

for (i = 0; i < nCities; i++) ( 

/* create a new city */ 
x [ i ] - gen_random_int (0, GeoLlmit); 
y[i] » gen_random_int (0, GeoLlmit); 


/* check if the new city overlaps other cities */ 
for (j - 0; j < i; j++) 
if (x(i) x[j)) 

while (y (i) == y l j ) ) 

/* repeat trying until no overlap */ 
y [ i I = gen_randora_int (0, GeoLlmit); 

) 

/** init weight matrix **/ 
for (i = 0; i < nCities; i++) 
for (j =0; ) < nCities; j++) 

Weight (i,j) » problem. huge; 

/** calc distance **/ 
nRoads = 0; 

for (1 = 0; i < nCities; 1++) ( 
for (j - if 1; j < nCities; j++) I 

if (gen_random_float () <= complFactor I I 
j =» i+1 II 

(i == 0 && j «*** nCities-1)) ( 
dx - x(i) - x [ j ) ; 
dy - y I i I - y(jl; 
dist ° dx * dx Hy * dy; 

Weight (i,j) - Weight (j,i) - (domain) sqrt (todouble (dist)); 

sortW (nRoads) = encodeW (i , j) ; 

nRoads++; 

) 

) 

) 

/* establish the sorted version of weights of edges */ 
for (i - 0; i < nRoads-1; 1++) ( 
best_one = i? 

best = decodeW (sortW (best_one) ) ? 
for (j - i+1; J < nRoads; j++) 

if (decodeW (sortW (j) ) < best) | bestone «* j; best = decodeW (sortW ( j) ) ; ) 
tmp = sortW (i); sortW (i) « sortW (best_one) ; sortW (best one) = tmp; 

1 

# ifdef DEBUG 

if (cmd. debug >~ 10) print conf (stdout) ; 
if (cmd. debug >= 10) | 
print f ("\n") ; 

for (1 = 0; i < nRoads; i++) 

printf (" (sortW[%d) = %d, %f ) , ", i, sortW (i), decodeW (sortW (i) )) ; 

} 

lendl f 

/* PDSD size */ 

set_node_size ( (nCities + nCities) * si zeof (int) ) ; 

lifndef SYMTSP 

fp = fopen (".ats", “a"); 

fprintf (fp, "ATSP (%d, %d, %d) \n", problem. size, nRoads, problem. seed) ; 
fclose (fp) ; 
f endi f 
) 


sol ver /ats. pgm/ search. c 


typedef float decomp_; 
decomp_ decomp_h__f un () ; 


i 
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void iipd_init {) { 

int size = problem. size; 

/* create weight matrix */ 

WEIGHT = {float *) malloc{size * size * si zeof (float )) ; 
SORTW » (int * ) malloc(size * size * sizeof (int) ) ; 


void idpd_init {) { ) 

int is_dominated (node) node_ *node; { return 0; } 


, /* node allocation routine ‘/ 

node_ *al locate_node (parentp, entity, g_cost) 
node_ ‘parentp; 
int entity; 
domain g_cost; 

{ node_ *p; 
int i; 

p “ get_search_node__from_pool () ; 
init_node_struct (p, parentp) ; 

p->entity - entity; 
p->g_cost = g_cost; 

/* clean thses value fields */ 
if (parentp) { 

p->lowb = parentp->lowb; 
p->upb - parentp->upb; 

) else ( 

p-> lowb = - problem. huge; 
p->upb = problem. huge; 

} 

/* init ‘visited associate */ 
if (parentp) { 

for (i =0; i < parentp->nvisit ; i+ + ) 

* (p->visited + i) “ * (parentp->visited + 1); 
p->nvisit = parentp->nvisit + 1; 

*(p->visited + parentp->nvisit) - entity; 

) 

else ( 

p->nvisit « 1; 

* (p->visited) = entity; 

) 

/* init ‘open associate */ 
trace_live (p) ; 

for (i =0; i < nCities; i++) 

Mp->open+i) = (LiveCityfil 6 6 Weight (entity, i) l- problem. huge) ? 1 : 0; 
return p; 

} 


/* allocate associates for newly allocated search nodes */ 
void pd_region () 

{ int offset, ‘pool, vi sited_of f set , open_offset, *a, i; 
node_ *p; 


pool = (int *) pool_manager; 


offset = node_conf .nodesize / sizeof (int); 
visitedoff set = si zeof (node_) / sizeof (int); 
open offset - visited_of f set + nCities; 

for (1 =0; i < Allocat ionSize; i++) { 
p = ( (node_ *) (a « pool + offset * i)); 

p->vlsited « a + visited_of fset; /* allocate ‘visited frame */ 

p->open *=* a + open_offset; /* allocate ‘open frame */ 

) 

) 


void reset_sol_buf (s) 
solution_ *s; 

( int i; 

for (i = 0; i < problem. size; i++) s->city[i) ■ 0; 

I 


/‘ for debug */ 
void print_conf (fp) 

FILE ‘fp; 

( int i, j; 

fprintf(fp, "nCit ies=%d, nRoads^dXn", nCities, nRoads); 
for (i - 0; 1 < nCities; i++) { 
fprintf (fp, m \n *) ; 
for (j » 0; j < nCities; j++) 

if (Weight (1, j) !*=■ problem. huge) fprintf (fp, " %6f ", Weight (i, j) ) ; 
else fprintf (fp, - huge ") ; 

) 

fprintf (fp, "Xn**); 


void evaluatesolut ion (sp) 
search_ ‘sp; 

( solution_ ‘sol; 

Int i; 

if (sp) sol - sp-> incumbent; 

else error ("evaulate_solut ion: internal error: sp is nil M ); 
printf ( M \nSOLUTION:\n") ; 

for (1 = 0; 1 < nCities; i ++) printf C'%d-th city is %d\n“, 1, sol->city [ 1 ] ) ; 
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decomp_ dh_val [MaxProblemSize] ; 
node_ *ch_arr [MaxProblemSi ze 1 ; 


node_ ‘expand (node, child_type, nchild) 
node_ ‘node; 
child_ child_type; 
int nchild; 

( int entity = node->ent ity; 
domain g_cost = node->g_cost ; 
node_ *new_list = NULL; 
node_ ‘child, *next_child; 
int i, count = 0 # who; 
domain w; 
decomp_ best; 

switch (child_type) { 

case ALL_CHILDREN: nchild = HUGE_INT; 

case N EXT_N_C H I LD RE N : 

/** init **/ 

for (i =0; i < nCities; i + + ) { 
dh_val [ i ] = HUGE_FLOAT; 
ch_arr(i) = NULL; 

} 

/“ sprout all necessary children “/ 
for (i = 1; i < nCities; i + + ) 
if (* (node->open+i) ) ( 

* (node->open+i) = 0; 
w = Weight (entity, i); 
if (w != problem. huge) { 

ch_arr(i) = allocate_node (node, i, g_cost+w) ; 
dh_val[l| = decomp_h__fun (node, ch_arr(i]); 
if (++count >“ nchild) break; 

) 

) 

/** sort all these children by decomp heuristic values “/ 
while (count — > 0) { 
best «* HUGE_FLOAT; 
who « -1; 

for (i ** 1; i < nCities; i++) 

if (best > dh_val(i)) ( best = dhval(i); who = i; ) 
ch_arr (who) -> next = new_list; 
new_list » ch_arr[who); 
dh_val [who) = HUGE_FLOAT; 

) 

/“ reverse new_list “/ 
next_child = new_list; 
new_list = NULL; 
while ((child ** next_child)) { 
next_child = child->next; 
child->next = NULL; 
chi ld->brother = new_list; 
new_list = child; 

} 


if (* (node->open+i) ) t 
‘ (node->open+i) = 0; 
w = Weight (entity, i); 

if (w ! *= problem. huge) return allocate_node (node, i, g_cost+w) 

I 

break; 

default: break; 

} 

return NULL; 

} 


decomp_ decomp_h_fun (node, child) 
node_ ‘node, ‘child; 

( 

return Weight (node->entity, child->ent ity) ; 


int is_^lnfeasible (node) 
node__ ‘node; 

( int v; 

/* an infeasible node must be a compound node in the complete graph, 
* but could be a simple node in incomplete graph 
*/ 

if (node->nvisit -» nCities) return 0; 
for (v = 0; v < nCities; v++) 
if (‘ (node->open+v) ) return 0; 
return 1; 


int is_feasible (node) 
node_ ‘node; 

( 

if (node->nvisit == nCities) 

return ((Weight (node->entity, 0) -- problem. huge) ? 0 : 1); 
else return 0; 


int is_pre_goal (node) 
node ‘node; 

( int v, edge; 

if (node->nvisit == nCities) 

if (Weight (node->ent ity, 0) 1= problem. huge) { 
node->g_cost +- Weight (node->ent ity, 0); 
return 1; 

) 

return 0; 


sol ver/ at s. pgm/ support .c 


return new_list; 

break; node_ * rootgenerator () ( return allocatenode (NULL, 0, 0.0); ) 

case NEXT_CHILD: 

for (i =1; i < nCities; i++) 


/* iteration-independent problem-dependent init */ 
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solver/ks . pgm/def i ne . h 


•ifndef node h 
I define node_h_ 

typedef int domain; 

•define Domain INT 

•define Allocat ionSize 256 

•define PDSI_PART \ 

int w; /* acc weight */ \ 

int *item; /* item pointer */ 

•define _W_Low 1 

• define _W_Up 1000 

•define ^Variance 1.5 

•define MaxProblemSize 550 

typedef struct 

{ 

int not_in_sack [MaxProblemSize + 1); 

} solution^; 

extern int U; /* f items */ 

extern int B; /* bound of weight */ 

extern int BOUND; /* lowb sum of weight of not included items */ 

extern int PP; /* overall sum of profits */ 

extern int WW; /* overall sum of weights */ 

extern int W [MaxProblemSize) ; /* weights */ 

extern int P [MaxProblemSize) ; /* profit */ 

extern int sort? [MaxProblemSize) ; 

extern float PdivW [MaxProblemSize) ; 

•endif node h 


sol ver/ks .pgm/bound . c 


domain ks_eval_lowb (), ks__eval_upb (); 


void evaluate_lower_bound (node) 
node_ *node; 

( 

node->lowb = is_feasible (node) ? node->g_cost : ks_eval_lowb (node); 

} 


domain ks_eval_lowb (node) 
node_ *node; 

[ int w_sum = node->w, i, diff, goal = 1; 
float lookahead, ratio; 

if (w_sum >= BOUND) /* goal node already */ return node->g_cost; 

/* find min penalty & max weight */ 
for (1=1; i <= U; i++) 

if (* (node->item + sortP[i) - 1)) { 
ratio = PdivW [sortP [ i )) ; 


goal = 0; 
break; 

) 

if (goal) return node->g_cost; 

diff = BOUND - w_sum; 

lookahead = tofloat (diff) * ratio; 

return (node->g_cost + toint (lookahead)); 


solution_ *evaluate_upper_bound (node, sol) 
node_ *node; 
solution^ *sol; 

{ 

node->upb *» is_feasible (node) ? node->g_cost : ks_eval_upb (node, sol); 
return sol; 

) 

domain ks_eval_upb (node, sol) 
node_ *node; 
solution^ *sol; 

{ domain p_sum = node->g_cost; 

int w_sum = node->w, i, * itemp, *ip; 

itemp = node->item; 
for (i - 1; i <= U; i+ + ) { 
if (w_sum < BOUND) ( 

ip = itemp + sortP[i) - 1; 
if(*ip) [ 

wsum += W[sortP[l)); • 

psum += P[sortP[i)); 

I 

} 

else break; 

) 

if (w_sum < BOUND) 

/* Infeasible */ 

' return problem. huge; 

return p_sum; 

) 


sol ver/ks. pgm/def ine. c 


int U; 

int B; 

int BOUND; 

int PP; 

i nt WW; 

int W(MaxProblemSize) ; 

int P [MaxProblemSize) ; 

int sortP [MaxProblemSize) ; 

float PdivW [MaxProblemSize) ; 


solver/ks.pgm/dom.c 


•define d node struct d node 


/* • items */ 

/* bound of weight */ 

/* lowb sum of 'weight of not included items */ 
/* overall sum of profits */ 

/* overall sum of weights */ 

/* weights */ 

/* profit */ 
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d_node_ { 

int w; 

int cost; 

node_ *who; /* pointer to search node */ 

d_node__ *next; /* pointer to next d_node */ 

) *d_node_manager = NULL, *Dom [MaxProblemSize + 2); 

extern void dom init () , d_list_free () , d_node_free () , d_node_delet e () ; 
extern d_node_ *d_node_al loc {) ; 


void dom__init () 

{int i; 

for <i - 0; i <=* problem. size + 1; i++) { 
d_l i st_f r ee (Dom [ i j ) ; 

Dom [ i ] - NULL; 

} 

) 


void d_list_free (p) 
d_node_ *p; 

{ d_node_ *q; 

while (p) { q = p->next; d_node_f ree (p) ; p - q; ) 

) 


void d_node_f ree (p) 
d_node_ *p; 

{ 

p->next = d_node_manager; 
d_node_manager = p; 


d_node__ *d_node_alloc (node) 
node_ *node; 

( d_node_ *p; 
int i ; 

/* if the pool of d nodes are empty, then */ 

/* allocate IK d nodes at a time to avoid spreadout of */ 

/* d nodes to a large range of virtual pages */ 
if (! d_node_manager) { 

p =* d node manager - (d _node_ *) malloc(1024 * sizeof (d_node_) ) ; 
for (i - 0; i < 1023; i++) (p + i)->next » p + i + 1; 

(p +■ 1023) ->next = NULL; 

/* memory_update { 1024 * sizeof (d_node_) ) ; */ 

) 

d__node_manager = (p = d_node_manager) ->next ; 

p->who = node; 

p->w =* node->w; 

p->cost = node->g_cost; 

return p; 


int is_dominated (node) 
node_ *node; 

( domain g_cost *= node->g_cost ; 
int depth = node->depth; 


int w * node->w; 
int existbit = 0; 
d_node_ *p, *q, *r; 

/* even if DFS, dominance is still necessary 

* if (Search_Strategy _DFS_) 1 return (0); ) 

*/ 

/* if the dom list of this depth is empty 

* then just insert it and return not -dominated 
V 

if ( ! Dom (depth)) { 

(Dom (depth) = d_node_al loc (node) ) ->next - NULL; 
return 0; 

I 

/* trace down the dom list of this depth 

* let cost be the penalty 

* j is dominated by i, if 

* w(j) <■= w(i) && cost(j) >“ cost(i) 

*/ 

for (p * q * Dom (depth); p; p - (q » p)->next) ( 
if (w <= p->w) ( 

if (g_cost >=■ p->cost) ( 

/* node is dominated by p */ 

if (node == p->who) ( exist_bit * 1; continue;)/* dominated by itself */ 
/* else, 

* node is dominated by someone else 

* locate node's d_node and delete it 

V 

else | dnodedelete (node) ; return 1; ) 

) 

) 

else ( 

/* w > p— >w * / 
if (! exist bit) ( 

/* allocate an entry to this dom list */ 
r - d_node_al loc (node) ; 

if (q -«* Dom [depth] && q == p) (Dom(depth) - r) ->next = p; 
else (q->next = r)->next - p; 

) 

return 0; 

) 

) 

/* pass through all the elements of the dom list */ 

/* all elements' w' s are smaller than node's w */ 

/* then the loop will end with q is the last element of the list */ 
if ( ! exist_bit) (q->next = d_node_al loc (node) ) -> next = NULL; 

return 0; 


void d_node_delete (node) 
node_ *node; 

{ d_node_ *p, *q; 

for (q = p = Dom(node->depth] ; p; p = (q * p)->next) 
if (node == p->who) ( 

if (q == Dom(node->depth) && q == p) Dom(node->depth) - p->next; 
else q->next = p->next; 
d_node_f ree (p) ; 
break ; 
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} 

) 


solver/ks. pgm/ gen. c 


void gsn_sarc.pl e_prob lew. {) 

{ int 1, j, best_one, tmp, min_w, size; 
float best, b_float; 

/* generate the problem size randomly * / 

U = size = problem. si ze; 

/* generate the problem parameters randomly */ 
min_w “ _W__Up + 1; 

WW - FP - W[0) = P(0] = 0; 
for (j = 1; j <= U; j++) { 

WW +- (W[j) * gen_random__int (_W_Low, _WJUp) ) ? 

PP +=* (P(j) « W(j) * genera ndom_range (1 .0, _Variance)); 
if (W[ j ] < min_w) min_w - W(j); 

} 

/* generate the total weight bound */ 

b_float » ((float) (WW - min_w)) * gen_random_range (0 .4 , 0.6); 

BOUND “ WW - (B - min_w + toint (b_f loat ) ) ; 

/* sort P array into sortP of which value is index ordering ascendingly */ 
for (i - 1; i <= U; i++) ( 

Pdi vW [ i J = tofloat (P[i) ) / tofloat (W(i)); 
sortP [i] = i? 

} 

for (i = 1; i < U; i + + ) ( 
best_one = i; 

best = Pd ivW( sortP [best_one ]) ; 
for (j «* i+1; j <= U; j++) 

if (PdivW (sortP ( j ) ) < best) ( best_one = j; best » PdivW( sortP ( j )) ; } 
tmp = sortP [i ] ; 
sortP [i] - sortP (best_one ) ; 
sortP [best_one] = tmp; 

) 

lifdef DEBUG 
if (cmd. debug >= 2) 

for (i = 1; i <- U; i++) 

printf ("P ( %d J =%d, W[%d] =%d\n ,, / i, P(i], i, W[i)); 
lendi f 

set_node_size (U * sizeof (int) ); 

} 


solver/ks .pgm/ search. c 


typedef float decomp_; 
decomp_ decomp_h_fun () ; 
decomp_ dh_val [MaxProblemSi ze ) ; 


node_ *expand (node, child_type, nchild) 
node_ *node; 
child_ child_type; 
int nchild; 


{ int entity *= node->entity ? 
domain g_cost = node->g__cost; 
node_"*left_child, *right_chi Id; 
int 1, who, gen_left, gen_left_only; 
decomp_ best; 

if (node->ndecomp >«= 2) return NULL; /** infeasible **/ 

/** binary decomposition (take or not take) **/ 

/** decomposition indicates which vertice should be considered first **/ 

if (childtype == NEXT_N_CHILDREN && nchild « 1) 
child_type - NEXT_CHILD; 

/** check whether the left child needs to be generated or not **/ 
gen_left_only = (child_type «*= NEXT_CHILD && node->ndecomp ==* 0) ? 1 : 0; 
gen_left «= (child_type *== ALL_CHILDREN | j gen_left_only) ? 1 : 0; 

/** init, less penalty Is better **/ 

for (i = 0; i < U; i++) dh_val(i) = HUGE_FLOAT; 

/** consider all live children **/ 
for (i - 0; i < U; i+ + ) 
if (* (node->item+i) ) 

dh_val(i) - decomp_h_fun (P(i+1), W[i+1), node->depth) ; 

/** find the best decomposition by decomp heuristic values **/ 
best = HUGE_FLOAT; 
who » -1; 

for (i = 0; 1 < U; i++) 

if (best > dh_val[l]) { best = dh_val(i); who = i+1; | 
if (who -- -1) return NULL; /** Infeasible **/ 
if (gen_left) 

left_child * al locate_node (node, who, g_cost+P (who) , node->w+W (who) ) ; 
if (gen_left_only) ( node->ndecomp = 1; return left_child; ) 

right_child = get_search_node_f rom_pool (); 
init_node_str’uct (right_chi Id, node); 
right_child->entity = node->entity; 
right_chlld->g_cost = node->g_cost ; 
right_chi ld->w = node->w; 
right_child->lowb = node->lowb; 
right_chi ld->upb = node->upb; 

for (i - 0; i < U; i ++) * (right_chl ld->item+i ) ■ * (node->item+i) ; 

* (right_child->item+who-l) = 0; 

node->ndecomp =2; 
if (gen_left) ( 

left_child->brother = right_child; 
return leftchild; 

} 

else return right_child; 


decomp_ decomp_h_fun (p, w, d) 
int p, w, d; 

{ 

S i fdef HARE_DECOMP 

float DECOMPH (); 
return (DECOMPH (p, w, d) ) ; 
f else 
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return (tofloat (p) / tofloat (w) ) ; 
#endif 
} 


int is_feasible (node) 
node_ "node; 

{ return (node->w >= BOUND); ) 


int is_infeasible (node) 
node_ "node; 

{ return 0; } 


sol ver/ks .pgm/ support .c 


node_ * root_generat or () 

1 

/* generate a root node with 
* parent = nil, entity « 0, g_cost =0, w = 0 
*/ 

return ailocate_node (NULL, 0, 0, 0); 

1 

/* problem dependent initialization */ 
void iipd_init () 

( int 1; 

for (1 - 0; 1 < MaxProblemSlze; 1++) Dorafll = NULL; 

) 


I 

return p; 

1 

/* allocate associates for newly allocated search nodes */ 
void pd_region () 

( Int offset, ‘pool, lteraof fset, *a, 1; 
node_ *p; 

pool - (Int *) pooljnanager; 

offset = node_conf ,node_slze / slzeof(int); 

item__offset = slzeof (node_) / sizeof(int); 

for (1 = 0; 1 < AllocationSlze; 1++) ( 
p = ( (node_ *) (a = pool + offset * 1)>; 

/* allocate *item frame */ 
p->ltem = a + item_offset; 

I 

1 


void reset_sol_buf (s) 
solutlon_ *s; 

I Int 1; 

for (1 = 0; 1 < problem. size; 1++) s->not_ln_sack [ 1 ] - 0; 

( 


/* problem dependent environmental Initialization for each Iteration */ 
void ldpd_inlt () ( dom_init(); I 


/* max sum profit » min sum penalty 

* profit: Items selected for packing constltue profit 

* penalty: items not selected constitute penalty 

* feature: min penalty and the sum of penalty increase from 0 

* all p, w, and cost are positive 
*/ 

node_ 'allocatenode (patentp, entity, g_cost, w\ 
node_ ‘parentp; 
int entity, q_cost, w; 

( no de_ *p; 
int k; 

p = get_search_node_f rom_pool () ; 
init_node_struct (p, parentp) ; 

p->entity = entity; 
p->g_cost = g_cost; 
p„>w w; 

/* clean these value fields */ 
p->lowb = - problem. huge; 
p->upb => problem, huge; 

if (parentp) { 

for (k =» 0; k < U; k+ + ) * (p->item+k) = * (parentp->item+k) ; 
* (p->item+entity-l) = 0; 

) else { 

for(k = 0; k < U; k++) * (p->item+k) = 1; 


/* for debug "/ 
void print_conf (fp) 

FILE "fp; 

( int i; 

fprintf (fp, "U=%d, B=*d, BOUND=*d, WW=%d, PP=»d\n“, U, B, BOUND, WW, PP) 
for (1 - 1; 1 <= U; lt + ) 

fprintf (fp, "W(%d)=»d, P[%dl=»d\n", 1, w(i|, 1, P[i|); 


void evaluatesolutlon (sp) 
search_ "sp; 
f solution_ "sol; 
int i; 

if (sp) sol = sp->incumbent ; 

else error Cevaulate_solution: Internal error: sp is nil"); 
print f ("\nSOLUTION: \n“) ; 
for (1 = 1; i <= problem. size; i++) 
if (sol->not_in_sack ( i] >= 0) 

print f ("%d-th object not in sack is %d\n", i, sol->not_in_sack [ i ) ) ; 
else break; 
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solver/pp. pgm/def ine . h 


lifndef PP_define_h_ 

Idefine PP__def ine_h_ 

typedef int domain; 

Idefine Domain INT 

idefine A1 locat ionSize 256 

Idefine PDSI_PART \ 

domain value; \ 

domain value; /* i_value is sum of ( x - r) */ \ 

domain *o^values; /* ptr to array of child's open values */ 

Idefine rParamLow 0 /* requirement */ 

Idefine rParamUp 3 

Idefine cParamLow 1 /* capacity */ 

Idefine cParamUp 4 

Idefine bParamLow 50 /* setup cost */ 

Idefine bParamUp 100 

Idefine pParamLow 10 /* production cost */ 

Idefine pParamUp 20 

Idefine hParamLow 5 /* inventory cost * / 

Idefine hParamUp 10 

Idefine Product ionRanqe (cParamUp + 2) 

Idefine MaxProblemSize 30 

typedef struct 
( 

domain prod (MaxProblemSi ze J ; 

} solution_; 

lendif PP define h 


solver/pp. pgm/abc . c 


domain rParam[MaxProblemSi ze ) ? /* requirement */ 

domain cP a ram (MaxProblemSize); /* capacity */ 

domain bParam[MaxProblemSize) ; /* setup cost */ 

domain pParam[MaxProblemSize) ; /* production cost */ 

domain hParam [MaxProblemSl ze ] ; /* inventory cost */ 

domain xParam[MaxProblemSize] ; /* production */ 

domain pSort [MaxProblemSize) ; /* sorted version of pParam */ 


solver/pp.pgm/bound.c 


domain pp_eval_lowb (), pp_eval_upb (); 

void evaluate_lower__bound (node) 
node_ *node; 

( 

node->lowb = is_feasible (node) ? node->g__cost : pp eval lowb(node); 


domain ppevallowb (node) 
node_ *node; 

{ int k « node->entity + 1; 
int m, i, j; 

domain i_value = node->i_value; 

domain cost *» node->g_cost; 

domain backlog, diff, x [MaxProblemSize] ; 

/* reset x array */ 

for (i - k; i <= problem. size; i++) x(i] * 0; 

/* backlogging over [k ... 1) without considering h effect */ 
for (i = k; i <= problem. size; i++) 

if ((backlog - rParam[i] - i_value) < 0) ( i_value rParam[i); x[i] - 0; ) 
else ( 

i_value =0; 

for (j « 1; j <= problem, si ze; j++) [ 
m - pSort [ j ) ; 
if (in(m,k, i) ) 

if (backlog > (diff ° cParam[m) - x(ra))) ( 
x(m) « cParam(m); 
backlog -** diff; 

) 

else ( x[m) += backlog; backlog ■ 0; break; ) 

) 

if (backlog > 0) /* infeasible solution */ return (problem. huge) ; 

) 

/* calculate the cost */ 
for (i = k; i <= problem. size; i++) 
if (x[i)) cost +» (pParam(i) * x(i)); 

return cost; 

) 

solution^ *evaluate_upper_bound (node, sol) 
node_ *node; 
solution^ * so 1 ; 

{ 

node->upb = is_feasible (node) ? node->g_cost : pp_eval_upb (node) ; 
return sol; 


domain pp_eval_upb (node) 
node_ *node; 

( domain i_value = node->i_value; 
domain cost = node->g_cost; 
domain backlog, diff, x [MaxProblemSize) ; 
int k « node->entity + 1; 
int i, j; 

/* reset x array */ 

for (i = k; i <= problem. si ze; i + + ) x[i) =0; 

/* greedy backlogging over [i ... k)- */ 
for (i = k; i <= problem. size; i++) 

if ((backlog = rParam(i) - i_value) < 0) ( i_value -=» rParam(l); x(i) *=*0; ) 
else ( 

i_value =0; 
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for (j = i; j >- k; j--) 

If (backlog > (dlff = cParam[j] - x[j|)) ( 
x [ j 1 = cParam[ j ] ; 
backlog -= diff; 

) 

else { 

x[ j) += backlog; 
backlog = 0; 
break; 

} 

/* infeasible */ 

if (backlog > 0) return (problem. huge) ; 

I 

/* calculate the cost */ 
i_value *= node->i_value; 
for (i = k; i <» problem. size; i++) { 
i_value +■ (x(i) - rParam[i)); 
cost +- (hParam[i] * i value) ; 

if (x [i] ) cost += (bParam(i) + pParam(i) * x [ i ) ) ; 

) 

return cost; 


sol ver/pp. pgm/gen . c 


void gen_sample_problem () 

{ domain sum_r * 0, sum_c = 0; 
domain increase, small, temp; 
int i, j; 

for (i » 1; i <= problem. size; i++) { 

sum_r += (rParam [ i ) = gen_random_int (rParamLow, rParamUp) ) ; 

bParam[ i ) = gen_random_int (bParamLow, bParamUp) ; 

hParam[i] * gen_random_int (hParamLow, hParamUp); 

sum_c += (cParam[i) = gen_random_int (cParamLow, cParamUp)); 

pParam[i) « gen_random_int (pParamLow, pParamUp); 

while (sum_r > sum_c) { 

increase gen_random_int (cParamLow, (cParamUp + cParamLow) / 2); 
cParam[i) += increase; 
sum_c += increase; 

} 

} 

/* create pSort U according the ascending order in pParam[) 

* pSort [ i ) = entity means entity has the i-th smallest pParam value. 
*/ 

/* reset _q */ 

for (i = 1; i <= problem. size; i++) pSort [i] = i; 

/* bubble sort ascedingly */ 
for (i =1; i < problem. size; i++) ( 
sma 11 = i ; 

for (j = i + 1; j <= problem. size; j++) 

if (pParam[pSort (small) ] > pParam [pSort [j] | ) small * j; 
temp = pSort ( i 1 ; pSort [i] = pSort (small J ; pSort [small] = temp; 

} 

set_node_size (Product ionRange * sizeof (domain) ) ; 

# if def DEBUG 

if (cmd. debug >= 2) print_conf (stdout ) ; 


lendif 

I 


sol ver/pp. pgm/ search. c 


typedef float decomp_; 
decomp_ decomp_h_fun () ; 
decomp_ dh_val ( Product ionRange) ; 
node_ ‘charr [Product ionRange ] ; 

node_ ‘expand (node, childtype, nchild) 
node_ ‘node; 
chlld_ child_type; 
int nchild; 

{ int entity ** node->entity; 

int next_entity » node->ent ity+1; 
domain g_cost - node->g_cost; 
domain i_value - node->i_value; 
domain *o_vals = node->o_values; 
node_ *new_list = NULL; 
node_ ‘child, ‘next child; 
int i, count «* v 0, who; 
domain w, i_val, cost, val, *ovp; 
decomp_ best; 

switch (childtype) ( 

case ALLCHILDREN: nchild = HUGE_INT; break; 
case NEXTCHILD: nchild = 1; break; 

default: break; 

1 

/“ init “/ 

for (i =0; i < ProductionRange; i++) ( 
dh_val[i] = HUGE_FLOAT; 
ch_arr[i] = NULL; 

) 

/“ sprout all necessary children **/ 
for (val = *o_vals; val >= 0; val = * (++o_vals) ) ( 
i_val * i_value + (val - rParam [next_entity ] ) ; 
cost ® g cost + hParam[next_entity) * i_val; 

if (val) cost +» (bParam[next__ent ity] + val * pParam [next_ent ity] ) ; 
ch_arr[val) = allocate_node (node, next_entity, val, i_val, cost); 
genopen value (charr [ val ] ) ; 

dh val [val] - decomp _h_fun (val, ival, next_entity) ; 
if (++count >= nchild) break; 

) 

/** update open values, where 'node->o_values / won't change “/ 
if (val < 0) ‘ (node->o_values) = -1; 
else ( 

ovp = ++o_vals; /“ new 1st open value “/ 
o_vals = node ->o_va lues; 

while (*ovp >= 0) * (o_vals+ + ) = * (ovp++) ; 

*o_vals = -1; 

) 

/“ sort all these children by decomp heuristic values “/ 
while (count — > 0) ( 
best = HUGE_FLOAT; 
who = -1; 
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for (val = 0; val < Product ionRange; val++) 

if (best > dh_val [ val ] ) { best = dh_val[vall; who = val; ) 
ch__arr [who J ->next = new__list; 
new list = ch_arr[whoJ; 
dh_val (who ) = HUGE_FLOAT; 

* } 

/** reverse new_list **/ 
next_child = new_list; 
new_list = NULL; 
while ((child = next_child) ) ( 
next_child = child->next; 
child->next = NULL; 
child->brother ** new_list; 
new_list = child; 

} 

return new_list; 

) 


decomp_ decomp_h_fun (val, i_val, next_entity) 
int val, i_val, next_entity; 

{ decomp_ retval; 

retval = (pParam(next_ent ity] + hParam[next_ent ity] ) * val 4- 
(val ? 1 : 0) * bParam(next_entityJ + 
hParam[next_entity) * (ival - rParam( nextent ity| ) ; 

return retval; 

) 


gen_open__value (node) 
node_ *node; 

( int k » node->entity + 1, i; 
domain from, to, val, size; 

/* set lower bound to open values */ 

if ((from = rParam(k) - node->i_value) < 0) from = 0; 

/* set upper bound to and size of open values V 
size = (to = cParam(k)) - from + 2; 

if (size > 0) { 

/* initialize the space */ 

for (i = 0, val = to; val >= from; val — , i++) * (node->o_values + i) = val; 
* (node->o_values + size - 1) *» -1; 

) 

else * (node->o_values) = -1; 

} 


int is_feasible (node) node_ *node; { return (node->entity == problem. size) ; } 
int is_infeasible (node) node_ *node; { return 0; } 
int is_dominated (node) node_ *node; { return 0; ) 


solver/pp .pgm/support . c 


node_ *root_generator () 
( node_ *root; 


/* generate a root node */ 

root « al locate_node (NULL, 0, 0, 0, 0); 

gen_open_value (root ) ; 

return root; 


void iipd_init () { ) 
void idpd_init () ( ) 


node_ *al locate_node (parentp, entity, value, i_value, g_cost) 
node_ * parentp; 
int entity; 

domain value, i_value, g_cost; 

( node_ *p; 

p « get_search_node_f rom_pool () ; 
init_node_struct (p, parentp) ; 

p->entity - entity; 
p->g_cost “ g_cost; 
p->value » value; 
p->i_value = i value ; 

/* clean up these value fields */ 
p->lowb « - problem. huge; 
p->upb - problem. huge; 

return p; 

} 


void reset_sol_buf (s) 
solution_ *s; 

( int i ; 

for (i - 0; i < problem. size; i++) s->prod{i) ■ 0; 

} 


void printconf (fp) 

FILE *fp; 

( int i; 

for (i = 1; i <= problem. size; i++) ( 

fprintf (fp, "x[%d)=%d, r(%d]=%d, c[%d)=%d, p[%d)=%d, ", 

i, xParamfi), i, rParam(i}, i, cParam(i], i, pParam[il); 
fprintf (fp, "h[%d)=%d, b[%d)=%d\n", i, hParam(i), i, bParam(il); 

) 

) 


void evaluate_solut ion (sp) 
search_ *sp; 

{ solution_ *sol; 
int i ; 

if (sp) sol = sp->incumbent; 

else error ("evaulate_solution: internal error: sp is nil"); 

print f ("VnSOLUTION: \n") ; 

for (i =0; i < problem. size; i++) 

printf ("%d-th production is. %d\n", i, sol->prod[ i J ) ; 
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/* allocate associates for newly allocated search nodes */ 
void pd_region() 

{ int offset, ’"pool, o__val_offset, *a, i; 
node_ *p; 

pool = (int *) pool_manager; 

offset = node_conf ,node_size / sizeof(int); 

o_val_offset » sizeof (node_) / sizeof(int); 

for(i =0; i < A1 locati onSi ze; i++) ( 

p = ((node__ *) (a 89 pool + offset * i)>; 

p->°_ v al u es ® a + o_val_of fset ; /* allocate *o_values frame */ 

) 

} 
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solver/ vc. pgm/ define . h 


lifndef VC_define_h 

fdefine VC_define_h 

typedef int domain; 

fdefine Domain INT 

fdefine Allocat ionSize 256 

fdefine PDSI_PART \ 

int num_edges; /** number of edges covered “/ \ 

int ‘vertattr; /“ vertex attributes “/ 

fdefine MaxProblemSize 250 

fdefine MaxNumberEdges (MaxProblemSize * (MaxProblemSize - 1) / 2) 

typedef struct { int vertices [MaxProblemSizeJ ? J solution^; 
typedef struct { int x, y; ) edge; 

fdefine VC_ALIVE 0 

fdefine VC_TAKEN -1 

fdefine VC_DEAD -2 

fdefine is_vertex_alive (node, v) ( * (node->vertattr + v) >= 0) 

♦define ls_vertex_taken (node, v) ( * (node->vertattr + v) =- VC_TAKENJ 

fdefine is_vertex_dead (node, v) ( » (node->vertattr + v) =*= VC_DEAD) 

fdefine set_vertex_taken (node, v) ‘ (node->vertattr + v) = VC_TAKEN 

fdefine set_vertex_dead (node, v) * (node->vertattr + v) =* VC_DEAD 

fdefine set_vertex^degree (node, v, deg) * (node*->vertattr + v) = deg 

fdefine get_vertex_degree (node, v) { * (node->vertattr + v)) 


extern int NumVertices, NumEdges; 

extern float Threshold; 

extern int Ad jacency (MaxProblemSize) (MaxProblemSize] ; 

extern edge Edges [MaxNumberEdges) ; 

f endif 


sol ver/ vc .pgm/bound . c 


domain vc_eval_lowb (), vc_eval upb (); 

void evaluate_lower_bound (node) 
node_ ‘node; 

{ 

node->lowb = is_feasible (node) ? node->g cost : vc eval lowb (node); 

} 

int sort_vertices (MaxProblemSize) ; 

domain vc__eval_lowb (node) 
node_ ‘node; 

{ int num_edges = node->num edges; 
domain lowb = node->g_cost ; 

int neleft ** NumEdges - node->num_edges; /*•* num of edges uncovered “/ 
int sum, nalive, who, best, temp, 1, j; 


/“ record who are alive “/ 

for (nalive = i = 0; i < NumVertices; i++) 

if (isvertexalive (node, i)) sort_vertices (nalive++) = i; 

if (nalive <= 0) return problem. huge; /“ Infeasible “/ 

/** sort these alive “/ 
for (i =0; i < nalive-1; i++) ( 
who = i; 

best = get_vertex_degree (node, sort_vert ices (who) ) ; 
for (j =■ i + 1; j < nalive; j++) 

if (best < get_vertex_degree (node, sort^verticesl j) ) ) ( 

/“ update who and best “/ 
who * j ; 

best = get_vertex_degree (node, sort^vert ices [ j ) ) ; 

) 

/“ swap i and who **/ 
temp - sortvertices ( i ) ; 
sort_vert ices (i) = sort_vertices(who) ; 
sortvert ices (who) * temp; 

1 

/“ calc lower bound “/ 
for (sum -1=0; i < nalive; i++) { 
lowb++; 

sum += get_vertex_degree (node, sort_vert ices ( i ) ) ; 
if (sum >= neleft) { 
if (node->parent) 

if (node->parent->lowb > lowb) lowb » node->parent->lowb; 
return lowb; 

) 

I 

return problem. huge; 

1 

soiution_ *evaluate_upper bound (node, sol) 
node_ ‘node; 
solution_ ‘sol; 

( 

node->upb = vc_eval upb (node, sol); 
return sol; 

} 


int check_edges (MaxNumberEdges) ; 

domain vc_eval_upb (node, sol) 
node_ ‘node; 

•solution_ ‘sol; 

( domain upb = node->g_cost ; 
int num_edges =0; 

int sum, nalive, who, best, temp, i, J; 

/“ record who are alive “/ 

for (nalive - i » 0; 1 < NumVertices; i++) 

if (isvertexalive (node, i)) sort_vert ices (nal lve++) = i; 

if (nalive <= 0) return problem. huge; /“ infeasible “/ 

/“ sort these alive “/ 

for (i =0; i < nalive-1; i++) ( 
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who = i; 

best = get_vertex_degree (node, sortverticesjwho] } ; 
for (j = i+1; j < nalive; j + + ) 

if (best < get_vertex_degree (node, sort_vertices [ j ) ) ) | 

/** update who and best **/ 
who = j; 

best = get__vertex_degree (node, sortvertices [ j) ) ; 

1 

/** swap i and who **/ 
temp = sort_vertices (i ] ; 
sort_vertices[i) = sort_vert ices (who) ; 
sort_vertices [who] *=» temp; 

} 

/** clear up edge-checking array **/ 

for (i =0; 1 < NumEdges; i++) checkedges ( i ) * VC_ALIVE; 

/** fill in edge-checking array **/ 
for (i =0; i < NumVertices; i + + ) { 
if (is_vertex_taken (node, i)) { 
sol->vert ices ( i ) » 1; 

num_edges + = mark__edges (i, check_edges, VC_TAKEN) ; 

} 

) 

for (i ° 0; i < nalive; i++) { 
if (num_edges < NumEdges) { 
upb++; 

sol->vertices (sort_vert ices (i ) ) = 1 ; 

num_edges +- mark_edges (sort_vert ices (i ) , check_edges, VC TAKEN); 
else break; 

) 

return ( (num_edges >= NumEdges) ? upb : problem. huge) ; 

J 


mark_edges (i, arr, mark) 
i nt i ; 
int arr [ ] ; 
int mark; 

{ int j, count *=■ 0; 

for (j = 0; j < NumVertices; j++) 
if (Ad jacency (i ) ( j ] >« 0) 

if (arr (Adjacency [i] [j] ) == VC_ALIVE) { 
arr (Adjacency (1) [ j] ) = mark; 
count + + ; 

) 

return count; 

I 


solver/vc.pgm/def ine. c 


int NumVertices; /** num of vertices in graph **/ 

int NumEdges; /** num of edges in graph **/ 

float Threshold; /** threshold for sprouting edges **/ 

int Ad jacency (MaxProblemSize) (MaxProblemSize) ; 

edge Edges [MaxNumber Edges } ; 


so 1 ve r/ vc . pgra/gen . c 


void gen_sample_problem () 
i int i, j; 

FILE *fp, * fopen () ; 

NumVertices « problem. size; 

NumEdges = 0; 

/** clean up problem attributes **/ 
for (i *» 0; 1 < NumVertices; i+ + ) 

for (j =0; j < NumVertices; j++) 

Ad jacency (i ]( j) « VC_DEAD; 

/** randomly generate connectivity (0.1, 0.2) **/ 

/* • Threshold = 3.0 / problem. size; **/ 

Threshold = 0.1; 

/** randomly generate edges according to Threshold **/ 
for (i = 0; i < NumVert ices-1; i++) 
for (j = i; j < NumVertices; j++) 
if (i ! “ j) 

if (gen_randora_float () <- Threshold) ( 

Adjacency (i ) (j) » Ad jacency (j l( i ) - NumEdges; 

Edges [NumEdges) .x = i; 

Edges (NumEdges) .y - j; 

NumEdges++; 

) 

set_node_size (NumVertices * sizeof (int)); 
fp = fopen (".vc M , "a"); 

fprintf (fp, M VC (%d, %d, %d) \n" , problem. size, NumEdges, problem. seed) ; 
fclose (fp) ; 

) 


solver/vc. pgm/ search. c 


typedef int decomp_; 
decomp_ decomp_h_fun () ; 
decomp_ dh_val [MaxProblemSize ) ; 

node_ *expand (node, child_type, nchlld) 
node_ ‘node; 
child_ child_type; 
int nchlld; 

{ int entity = node->entity; 

domain g_cost = node->g_cost; 
node_ *left_child, *right_child; 
int i, who, gen_left, gen_left_only ; 
decomp_ best ; 

if (node->ndecomp >= 2) return NULL; /** infeasible **/ 

/** binary decomposition (take or not take) **/ 

/** decomposition indicates which vertice should be considered first **/ 
if (chi ld_type N EXT_N_CH I LDREN && nchlld == 1) 
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chi ld_type = NEXT_CHILD; 


/“ check whether the left child needs to be generated or not “/ 
gen_left__only = (child_type == N£XT_CHILD node->ndecomp «« 0) ? 1 : 0; 
gen_left * (child_type == ALL_CHILDREN | | gen_left_only) ? 1 : 0; 

/“ init “/ 

for (i =0; i < NumVertices; i++) dh_val[i) = 0; 

/** consider all live children “/ 
for (i =0; 1 < NumVertices; i++) 

if (is_vertex_al ive {node, i)) dh_val(i) « decomp_h_fun (node, 1); 

/** find the best decomposition by decomp heuristic values “/ 
best =0; 
who » -1; 

for (i - 0; i < NumVertices; i + + ) 

if (best < dh_val(i|) ( best = dh_val(i); who = i; } 

if (who -- -1) return NULL; /“ infeasible “/ 

if (gen_left) left_child « al locate_node (node, who, g cost+1); 
if (gen_left_only) { node->ndecomp «* 1; return left child; } 

right_child = get_search_node_f rom_pool {); 
init__node_struct (right_chi Id, node); 
right_child->entity = node->ent ity; 
right_child->g_cost = node->g_cost ; 
right_child->num_edges = node->num_edges; 
right_child->lowb = node->lowb; 
right_child->upb = node->upb; 
for (i » 0; i < NumVertices; i + + ) 

* (right_child->vertattr + i) - * (node->vertattr+i) ; 
set_vertex_dead (right_child, who); 

node->ndecomp «* 2; 
if (gen_left) ( 

left_child->brother *» right_child; 
return left_child; 

} 

else return right_child; 

) 


decomp_ decomp_h_fun (node, 1) 
node_ ‘node; 
i nt 1 ; 

1 

return get_vertex_degree (node, i); 

1 


int is_feasible (node) 
node_ ‘node; 

( return ( (node->num_edges >= NumEdges) ? 1 : 0); ) 


int is_infeasible (node) 
node_ ‘node; 

( return 0; } 


node_ ‘root generator () 

{ /“ generate a root node with 

“ parent *= nil, entity = -1, g_cost = 0 “/ 
return (allocatewiode (NULL, -1, (domain) 0)); 

) 


void iipd init () ( } 
void idpd init () ( ) 

int is_dominated (node) node_ ‘node; ( return 0; ) 

node_ ‘allocate_node (parentp, entity, g_cost) 
node_ * parentp; 
int entity; 
domain g_cost; 

{ node_ *p; 
int i, j; 

int check_edge (MaxN umber Edges ] ; 

p - get_search_node_from_pool () ; 
init_node_struct (p, parentp); 

p->entity « entity; 
p->g_cost « g cost; 

/“ clean these value fields “/ 
p->lowb = - problem. huge; 
p->upb = problem. huge; 

/“ troublesome to calc live degree of vertex “/ 

/“ collect info about which edges are alive “/ 
for (i = 0; i < NumEdges; i++) checkedge (i ] - VCALIVE; 
for (i - 0; i < NumVertices; i++) • (p->vertattr+i) » 0; 
if (parentp) 

for (i = 0; i < NumVertices; i++) 

if (i == entity || is_vertex_taken (parentp, i) ) 
for (j =0; j < NumVertices; j++) 
if (Adjacency (i ][ j] >= 0) 

check_edge(Ad jacency (1] ( J) 1 = VC_TAKEN; 

/“ calc live degree of all vertices “/ 

p->num_edges = NumEdges; 

for (i = 0; i < NumEdges; i++) 

if (check_edge ( i ) == VC_ALIVE) { 

— (p->num_edges) ; 

(‘ (p->vertattr + Edges ( i J. x) ) ++; 

(‘ (p->vertattr + Edges [ i 1 .y) ) ++; 

} 

/“ disable those vertices which are taken or dead “/ 
if (parentp) ( 

for { i =0; i < NumVertices; i++) { 

if { i s_vert ex_t aken (parentp, i)) set_vertex_taken (p, 1) ; 
else if (is_vertex_dead (parentp, i)) set_vertex_dead (p, i); 

} 

set_vertex_taken (p, entity) ; 

) 


sol ver/vc . pgm/support . c 


) 


return p; 
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void pd_region {) 

/** allocate associates for newly allocated search nodes **/ 
( int offset, *pool, vertatt r_of fset , *a, i; 
node__ *p; 

pool *» {int *) pool_manager; 

offset = node_conf .node_si ze / sizeof (int); 

vertat tr_off set = sizeof (node_) / sizeof (int); 

for (i - 0; i < AllocationSize; i++) ( 

p = ((node__ *) (a = pool + offset * i)); 

/** allocate *vertattr frame **/ 
p->vertattr - a + vertattr_of fset; 

) 

} 


void reset_sol_buf (s) 
solution^ *s; 

( int i; 

for (i =0; i < problem. size; i++) s->vertices( i ) • 0; 

) 


void print_conf (fp) 

FILE *fp; 

{ int i, j; 

fprintf (fp, "NumVert ices=%d, NumEdges=%d, Threshold=%f \n", 
NumVertices, NumEdges, Threshold); 
fprintf (fp, "AdjacencyNn") ; 
for (i = 0; i < NumVertices; i++) ( 
for (j =0; j < NumVertices; j++) 

fprintf (fp, "%d, ", Adjacency!!)! jl) ; 
fprintf (fp, M \n"); 

1 

fprintf (fp, "EdgesXn") ; 
for (i =0; i < NumEdges; i++) 

fprintf (fp, "E[%d): x=%d, y=%d\n", i, Edges(i].x, Edges(i).y) 


void evaluate_solut ion (sp) 
search_ *sp; 

{ solution_ *sol; 
int i, count «* 0; 

fifdef DEBUG 
if (cmd. debug >= 5) 

print_conf (stdout) ; 

#endif 

if (sp) sol = sp->i ncumbent ; 

else error ("evaulate_solut ion: internal error: sp is nil“); 
print f ("NnSOLUTION :\n") ; 
for (i = 0; i < problem. size; i++) 
if (sol->vert ices ( i ) ) ( 

printf ("%d-th vertex is selectedXn", i); 
count++; 

) 

printf ("solution value = %d\n", count); 
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solver /wet . pgm/abc . c 


idefine MPS 


MaxProblemSi ze 


int 

int 


nTasks ; 
nProcessors; 


/* # tasks */ 

/* I processors */ 


domain execTime (MPS) ; /** execution times of tasks**/ 

float Weight (MPS); /** weights of tasks **/ 

int sortTask (MPS) ; /** sorted version of tasks **/ 

float WdivT(MPS); /** weights div times **/ 


flundef MR 


sol ver/wet . pgm/bound. c 


domain grcs_eval_lowb 0, grcs_eval_upb (); 
domain p_ck [MaxProblemSize] ; 


void evaluate_lower_bound (node) 
node_ *node; 

{ 

f ifdef DEBUG 

if (cmd. debug >= 4) print f ("eval lowb\n M ) ; 
lendif 

node->lowb = is_feasible (node) ? node->g_cost : grcs_eval_lowb (node); 

) 


domain grcs_eval_lowb (node) 
node_ *node; 

( domain lowb = node->g_cost ; 
domain min__t = huge_float; 
float min_w = huge^float; 
int i, j, who; 
domain alloc_proc (); 

for (i =0; i < nProcessors; i + + ) p_ck[i] « * (node->proc_ck+i ) ; 

for (i «* 0; i < nTasks; 1++) 
if (is_task_ali ve (node, i) ) 

if (min_w > Weight[i)) min_w = Weight (i); 

for (i =0; i < nTasks; i++) r 

if (is_task_alive (node, i)) { 
min_t = alloc_proc (p_ck, &who) ; 
p_ck[who] +- execTime [ij; 
lowb += (p_ck[who) * min_w) ; 

) 

return lowb; 

} 


solution_ *evaluate_upper_bound (node, sol) 
node *node; 


solution_. *sol; 

1 

f ifdef DEBUG 

if (cmd. debug >= 4) print f ("eval upb\n M ); 

•endi f 

node->upb = ls_feasible (node) ? node->g_cost : grcs_eval_upb (node, sol); 
return sol; 

) 


domain grcs_eval_upb (node, sol) 
node_ *node; 
solution_ *sol; 

( domain upb «* node->g_cost ; 
domain min_t = huge_float; 
float min_w - huge__float; 

Int i, j, who; 
domain allocproc (); 

for {1 - 0; 1 < nProcessors; 1++) p_ck[i] - * (node->proc_ck+i) ; 
for (i - 0; i < nTasks; i++) 

if (is_task_sched (node, i)) sol->schedTime (i ) = get_task_t ime (node, D 

for (i - 0; i < nTasks; i++) I 
j - sortTask (ij; 
if (is_task_alive (node, j) ) ( 
min_t = allocproc (p_ck, 4who) ; 
sol->schedTime( j) « min_t; 
p_ck[who) + - execTime (j ) ; 
upb +=« (p cklwho] * Weight(j)); 

) 


return upb; 


domain alloc_proc (p_ck_arr, whop) 
domain p_ck_arr(); 
int *whop; 

{ domain tmin; 
int i ; 

♦whop = 0; 
tmin « pek arr[0|; 
for (i =1; 1 < nProcessors; i++) 
if (tmin > p_ck_arr(i)) ( 
tmin = p_ck_arr(i]; 

*whop = i; 

I 

return tmin; 

1 


sol ver/wet . pgm/conf ig . h 


fifndef RCS configh 

9 define RCS config h 
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/* bound. c */ 

extern solutlon_ *evaluate_upper_bound () ; 

extern void eval uate_lower_bound {) , update_bounds {) ; 

/* gen.c */ 

extern void gen_sample_problem () ; 

/* search. c */ 

extern int is_infeasible () , i s_feasible (J ; 

extern node_ *expand(); 

/* support. c * / 

extern int is_dominated O ; 

extern node_ *root_generator () , *allocate_node () ; 

extern domain get_probiem_domain 0 ; 

extern void iipd_init(), idpd_init(), pd_region(), reset_sol_buf () , 

print_conf {) ; 

•endif _ RCS_conf ig_h_ 


solver /wet . pgm/ define. h 


#if ndef WCT_def ine__h_ 

•define WCT_def ine_h_ 

typedef float domain; 

•define Domain FLOAT 

•define MaxProblemSize 30 
•define Allocat ionSize 256 

•define PDSI_PART \ 

domain *proc_ck; /** processor's clocks **/ \ 

int *open_task; /** open pointer, to be selected **/ \ 

float *sched_time; /** scheduled times of tasks **/ 


typedef struct 

{ 

domain schedTime (MaxProblemSize) ; 
} solution_; 


•define N0T_SCH ED (-1.0) 

• define is_task_alive (node, i) (* (node->sched_t ime + i) < 0.0) 

• define is_task_sched (node, i) (* (node->sched_time + i) >= 0.0) 

• define set_t ask_al ive (node, i) * (node->sched_t ime + i) = NOT_SCHED 
•define get_task_t ime (node, i) (* (node->sched_t ime + i)) 

• define set__task_t ime (node, i, t) * (node->sched_t ime + i) = t 

•define _T_Low 10.0 /** exec time **/ 

•define _T_Up 100.0 

•define MaxProcessor 8 

flendif WCT define h 


solver/wct .pgm/gen.c 


void gen__sample_problem () 


( int i, j, best_one, temp; 
float maxratlo = 0.0; 

/* generate the numbers of resources randomly */ 
nTasks = problem. size; 
nProcessors *» 3; 


/** find out the sort version of tasks **/ 
for < i — 0; i < nTasks; 1++) ( 
sortTask(i) ■ i; 

execTime[i) = gen_random_range (_T_Low, _T_Up) ; 
WdivT(i) = gen_randora_range (0.9, 1.1); 

Weight [i] = Wdi vT [i } * execTime(i); 

1 

for (i =0; i < nTasks; i++) ( 
best_one - i; 

max_ratio = WdivT [sortTask [best_onej ] ; 
for (j - i+1; j < nTasks; j++) 

if (WdivT (sortTask ( j) ) > max_ratio) ( 
best_one = j; 

max_ratio «* WdivT ( sortTask ( j )) ; 

) 

temp - sortTask (ij; 

sortTask [i) - sortTask (best_one) ; 

sortTask (best_one ) = temp; 

I 


I 


set_node_size ((nProcessors + nTasks) * 
nTasks * sizeof (int)); 


sizeof (float) + 


solver/wct . pgm/output . h 


•if ndef TS_output_h_ 

•define TS_output_h_ 

/* 

Output Format Control Signals 

Every control signals must be defined to be either 1 or 0. 

*/ 


•define 

OUT_GRAPH 

1 

•define 

OUT_SUMMARY 

1 

•define 

OUT_TIME_LIMIT 

1 

•define 

OUT_SPACE_LIMIT 

0 

•define 

OUT_CST_LIMIT 

0 

•define 

OUT_REAL_TIME 

0 

•define 

OUT REAL MAX_SPACE 

0 

•define 

OUT_REAL_CST 

0 

•define 

OUT VIRTUALJTIME 

1 

•define 

OUT_VI RTUAL_MAX_SPACE 

1 

•define 

OUT_VIRTUAL_CST 

1 

•define 

OUT_ROOT_AP PROX 

1 

•define 

OUT_RUN_T I M E_AP P ROX 

1 

•define 

OUT_APPROX 

1 

•define 

OUT_INCUMBENT 

1 

•define 

OUT_LOWB 

1 

•define 

OUT THRESHOLD 

1 
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/* sTCA & sTCGD t pTCGD */ 

tdeflne OUT_GRADI£NT_FACTOR 1 

/* pTCA S dTCA & pTCGD */ 

lde£lt\e OUT_STOPPING_F ACTOR 1 

idefine OUT_CORRECTIVE_FACTOR 1 

lendif TS_output_h_ 


solver/ wet . pgm/ search . c 


typedef float decomp_; 
decomp_ decomp_h_fun (); 
decomp_ dh_val (MaxProblemSize) ; 
node_ *ch_arr [MaxProblemSize] ; 


node_ ^expand (node, child_type, nchild) 
node_ *node; 
child_ child_type; 
int nchild; 

{ int entity * node->entity ; 
domain g_cost «* node->g_cost; 
node_ *new_list « NULL; 
node_ * child, *next_child; 
int i, count = 0, who; 
domain w; 
decomp_ best; 

switch (child_type) ( 

case ALL_CHILDREN; nchild = HUGE_INT; 
case NEXT_N_CHILDREN: 

/** init **/ 

for (i =0; 1 < nTasks; i + + ) ( 
dh_val[i] = (decomp_) 0;; 
ch_arr[i] = NULL; 

) 

/** sprout all necessary children **/ 
for (i =0; i < nTasks; i++) 
if (* (node->open_task+i) ) ( 

* (node->open_task+i ) «* 0; 
ch_arr[i) = allocate__node (node, i); 
dh_val[ij = decomp_h__fun (i); 
if ( + +count >=» nchild) break; 

1 


newlist = NULL; 
while ((child = next_chlld)) | 
next_child = child->next; 
child->next = NULL; 
child->brother = new_list; 
new_list = child; 

} 

return new_list; 
break; 

case NEXT_CHILD; 

for (i = 0; i < nTasks; 1++) 
if (* (node->open_task+i) ) ( 

* (node->open_task+i) ° 0; 
return allocate node (node, i); 

) 

break; 

default: break; 

) 

return NULL; 

} 


decomp_ decomp_h_fun (entity) 
int entity; 

{ 

return ((decomp_) execTime [entity ]) ; 


int is_lnfeasible. (node) 
node_ *node; 

( return 0; ) 


int is_feasible (node) 
node *node; 

( int i ; 

for (i =0; i < nTasks; i++) 

if (is_task_alive (node, 1)) return 0; 

return 1; 

} 


sol ver/wet . pgm/support . c 


/** sort all these children by decomp heuristic values **/ 
while (count — > 0) { 
best = (decomp_) 0; 
who ** -1; 

for (i =0; i < nTasks; i++) 

if (best < dh_val[i]) { best « dh val(i); who = i; ) 
ch_arr [who) ->next = new_list; 
new_list = ch_arr[who); 
dh_val[who] = (decomp_) 0; 


/** reverse new_list **/ 
next_child = new_list; 


node_ *root_generator () 1 

return allocate_node (NULL, -1); 

} 

void iipd_init() | ) 
void idpd_init() ( ) 

int isdominated (node) node_ *node; ( return 0; ) 
node *allocate_node (parentp, entity) 
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node__ *parentp; 
int entity; 

{ node_ *p; 

int 1, j, who; 
domain min_t; 

p = get_search__node_f rom_pool () ; 
init_node_struct (p, parentp) ; 

p->entity - entity; 
p->g_cost = (domain) 0,0; 

/* clean thses value fields */ 
p->lowb = - problem. huge; 
p->upb *» problem. huge; 

if (parentp) 

for (i * 0; i < nTasks; i++) * (p->sched_time+i) ■ * (parentp->sched_t ime+i) ; 
else 

for (i * 0; i < nTasks; i++) set_task_alive (p, i); 
if (parentp) ( 

for (i * 0; i < nProcessors; i ++) 

* (p->proc_ck+i) = * (parentp~>proc_ck+i) ; 

} else { 

for (i * 0; i < nProcessors; i+v) 

* (p->proc_ck+i) = (domain) 0.0; 

) 

if (parentp) ( 

min_t = alloc_proc (p->proc_ck, 4who) ; 

* (p->sched_time+ent ity) = mint; 
min_t +« execTime (entity) ; 

* (p->proc_ck+who) = min_t? 

p->g_cost = parentp->g_cost + min_t * Weight [entity ) ; 

) 

for (i = 0; i < nTasks; i++) 

if (is_task_alive (p, i)) * (p->open_task+i) = X; 

return p; 

) 


void reset_sol__buf (s) 
solution_ *s; 

( int i ; 

for (1 = 0; 1. < problem. size; 1++) s->schedTime 1 1 ) = (domain) 0.0 
I 


void evaluate_solutlon (sp) 
search_ *sp; 

( solutlon_ ‘sol; 

Int 1, y 


If (sp) sol = sp->incumbent; 

else error ("evaulate_solutlon: internal error: sp Is nil"); 
print f ("\nPROBLEM:\n") ; 

prlntf (“nTasks=%d, nProcessors«%d\n“ , nTasks, nProcessors); 

for (1 = 0; 1 < nTasks; 1++) 

prlntf ("execTime [%d| =%g, Weight l %d) -%g\n", . 

1, (float) execTime [1), 1, (float) Welght(i)); 

prlntf ("\nSOLUTION:\n") ; 

for (1=0; 1 < problem. size; 1++) 

prlntf (“*d-th task Is scheduled at time %g\n“, 

1, (float) (sol->schedTlme[l ) ) ) ; 


/* allocate associates for newly allocated search nodes */ 
void pd_region () 

( int offset, ‘pool, pck_offset, open_offset, sched_tlme_offset; 

1 nt * a , 1 ; 
node_ *p; 

pool = (Int *) pool_manager; 

offset •> node_conf . node_slze / slzeof (Int); 

pck_offset • slzeof (node_) / slzeof (Int); 

open_offset = pck_offset + nProcessors * sizeof (domain) / slzeof (Int); 
sched_time_offset * open_offset + nTasks; 

for (1 = 0; i < AllocationSlze; 1++) ( 
p = ( (node_ *) (a - pool + offset * 1 ) ) ; 
p->proc_ck = (domain *) (a + pck_offset); 
p->open_task = (Int *) (a + open_of fset ) ; 
p->sched_time = (domain *) (at sched_tlme_of fset) ; 

) 


I 
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solver/grcs. pgm/abc. c 


Sdefine MPS MaxProblemSize 

Idefine MR MaxResource 

int nTasks; /* I tasks */ 

int nProcessors; /* f processors */ 

Int nResources; /* I resources */ 

int REQ1MPS] [MR] ; /* resource reguirements */ 

domain execTime [MPS | ; /** execution times of tasks**/ 

lundef MPS 
lundef MR 


solver/grcs.pgm/bound.c 


domain grcs_eval_lowb (), grcs_eval_upb (); 


void evaluate_lower_bound (node) 
node_ *node; 

( 

lifdef DEBUG 

if (cmd. debug >= 4) printf(”eval lowb\n"); 
lend! f 

node->lowb = is_feaslble (node) ? node->g_cost : grcs eval lowb (node); 

) 


domain grcs_eval_lowb (node) 
node_ *node; 

( domain lowb = node->g_cost; 
domain texec = (domain) 0.0; 
domain tavail ° (domain) 0.0; 
domain tmax = (domain) 0.0; 
int i, j, who; 

/** calc processors' bottleneck **/ 

for (i = 0; i < nTasks; 1++) 

if (is_task_alive (node, i) ) texec += execTime(i|; 

for (i » 0; i < nProcejsors; i+t) 

if (tmax < * (node->proc_ck+l) ) tmax = * (node->proc_ck+i ) ; 

tavail - (domain) 0.0; 

for (1 = 0; i < nProcessors; 1++) tavail += tmax - * (node->proc_ck+i) ; 
texec -= tavail; 

if (texec > (domain) 0.0) lowb += (texec / nProcessors); 

/** calc resources' bottlenecks **/ 
for (j - 0; j < nResources; j++) ( 
texec = (domain) 0.0; 
for (i = 0; i < nTasks; i++) 

if (is_task_alive (node, i) is REQ [ 1 | [ j | ) texec += execTime[i|; 
if (lowb < texec) lowb = texec; 


) 


if (node->parent) 

if (lowb < node->parent->lowb) lowb - node->parent->lowb; 
return lowb; 

) 

solutlon_ *evaluate_upper_bound (node, sol) 
node_ “node; 
solutlon_ *sol; 

1 

• ifdef DEBUG 

if (cmd. debug >- 4) prlntf ("eval upb\n">; 
lendif 

node->upb = ls_feaslble (node) ? node->g_cost : grcs_eval_upb (node, sol); 
return sol; 

) 


domain r_ck (MaxProblemSize) , p_ck [MaxProblemSize) ; 
domain grcs_eval_upb (node, sol) 
node_ ‘node; 
solutlon_ *sol; 

( domain tmax = (domain) 0.0; 
int 1, j, who; 
domain allocproc (); 

for (1 = 0; i < nResources; i++) r_ck[i| = * (node->resource_ck+i) ; 

for (1 = 0; i < nProcessors; i++) p_ck[i] » * (node->proc_ck+i ) ; 

for (i = 0; i < nTasks; i++) 

if (is task sched (node, 1)) sol->schedTime [1 ) = get_task_t lme (node, 1); 

for (1 = 0; i < nTasks; 1++) ( 

if (is_task_alive (node, i) ) ( 

tmax = alloc_proc (p_ck, swho); 

.for (j = 0; j < nResources; j++) 
if (REQ f 1 1 [ j ) ) 

/** resource J is required **/ 
if (tmax < r_ck(J)) tmax = r_ck[j|; 

sol->schedTime [ i ) - tmax; 
tmax += execTime[l); 
p_ck[who) - tmax; 

for (j = 0; J < nResources; j++) 
if (REQUI(JI) r_ck [ ) 1 - tmax; 

I 

) 

tmax = (domain) 0.0; * 

for (i = 0; 1 < nProcessors; 1++) 
if (tmax < p_ck[i)) tmax = p_ck[l]; 

return tmax; 

I 
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domain alloc_proc (p_ck_arr, whop) 
domain p_ck_arr[J; 
int ‘whop; 

{ domain tmin; 
int i; 

•whop ** 0; 
tmin = p_ck_arr[0); 
for (i - 1; i < nProcessors; i++) 
if (tmin > p_ck_arr(i)) ( 
tmin = p_ck_arr[i|; 

•whop = i; 

) 

return tmin; 

} 


solver/ grcs . pgm/conf ig. h 


•ifndef RCS__conf ig_h_ 

•define RCS_conf ig_h__ 

/• bound. c •/ 

extern solution_ *evaluate_upper_bound () ; 

extern void evaluate__lower_bound () , update_bounds () ; 

/* gen.c */ 

extern void gen_sample_problem () ; 

/* search. c •/ 

extern int isinfeasible () , isfeasible {) ; 

extern node_ •expand () ; 

/* support. c */ 

extern int is_dominated () ; 

extern node_ •root_generator () , •allocate_node () ; 

extern domain get_problem_domain ( ) ; 

extern void iipd_init {) , idpd_init(), pd_region(), reset_sol_buf () , 
print_conf () ; 

•endif RCS_conf ig_h_ 


sol ver/ grcs .pgm/def ine . h 


•ifndef GRCS_def ine_h_ 

•define GRCS_def i ne_h_ 

typedef float domain; 
•define Domain FLOAT 

•define MaxProblemSize 160 
•define AllocationSize 256 

•define PDSI_PART \ 

domain *proc_ck; 
domain *resource_ck; 
int *open_task; 
float *sched_time; 


/** processor's clocks **/ V 
/•• resource's clocks **/ \ 
/** open pointer, to be selected **/ \ 
/** scheduled times of tasks **/ 


typedef struct 


{ 


domain schedTime (MaxProblemSize) ; 
} solution_; 


•define NOT_SCHED (-1.0) 

• define i s_task_a live (node, i) (* (node->sched_time + i) < 0.0) 

• define is_task_sched (node, i) (* (node->sched_time + i) >■ 0.0) 

•define set_task_alive(node, i) * (node->sched_t ime + i) ■ NOT_SCHED 
•define get_task_time (node, i) (* (node->sched_time + i)) 

•define set_t ask_t ime (node, i,t) * (node->sched_t ime + i) “ t 


/* num of resources */ 
/• num of processors */ 
/** exec time **/ 

•define MaxResource (_n_R_Up + 2) 

•define MaxProcessor (_n__P_Up + 2) 

lendif GRCS define h 


• de f i ne _n _R_Low 4 

•define _n_R_Up 4 

•define _n_P_Low 3 

•define _n_P_Up 3 

•define _T_Low 10.0 

•define T Up 100.0 


solver/grcs.pgm/gen.c 


void gensampleproblem () 

( int i, j; 

/• generate the numbers of resources randomly */ 

nTasks = problem. si ze; 

nProcessors = gen_random_int (_n_P_Low, _n_P_Up) ; 

n Re sources = gen_random_int (_n_R_Low, _n_R_Up) ; 

nProcessors = 2; 

nResources = 4; 

/•gen tasks' exec times randomly */ 

# ifdef SIMPLERCS 

for (1=0; i < nTasks; i++) execTime[i| = 1.0; 

• else 

for (i =0; i < nTasks; i++) execTime(i) = gen_random_range (_T_Low, _T_Up) ; 
•endi f 


/•* gen tasks' resources' requirements •*/ 
for (i =0; 1 < nTasks; i++) 

for (j =0; j < nResources; j++) 

REQ{i|[j) - (gen_random_f loat () <= 0.5) ? 1 : 0; 


set_node_si ze 

} 


((nProcessors + nResources + nTasks) 
nTasks * sizeof (int) ) ; 


sizeof (float) + 


sol ver/grcs .pgm/output . h 


•tfndef TS_output_h 

• define TS_output_h 
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/* 

Output Format Control Signals 

Every control signals must be defined to be either 1 or 0. 

*/ 


#def ine 



OUT_GRAPH 

1 

Idef ine 



OUT_SUMMARY 

1 

•define 



OUT_TlME_LIMIT 

1 

Idef ine 



OUT_SPACE_LIMIT 

0 

Idef ine 



OUT_CST_LIMIT 

0 

Idef ine 



OUT_REAL_TIME 

0 

•define 



OC/r_REAL_MAX SPACE 

0 

•define 



OUT_REAL_CST 

0 

♦define 



OUT_VIRTUAL TIME 

1 

♦define 



OUT_VIRTUAL_MAX_SPACE 

1 

•define 



OUT_VIRTUAL__CST 

1 

•define 



0UT_R00T_AP P ROX 

1 

•define 



OUT_RUN_TIME_APPROX 

1 

Idef ine 



OUT_APPROX 

1 

Idef ine 



OUT_INCUMBENT 

1 

•define 



OUT LOWB 

1 

•define 



OUTJTHRESHOLD 

1 

/* 

sTCA 

& 

sTCGD & pTCGD 

*/ 

•define 



OUT_GRADI ENT_FACTOR 

1 

/* 

pTCA 

4 

dTCA & pTCGD */ 


•define 



0UT_ST0PPING FACTOR 

1 

•define 



OUT_CORRECTIVE FACTOR 

1 

lendif 

TS_ 

output h_ 



solver/grcs .pgm/search. c 


typedef float decomp_; 
decomp_ decomp_h_fun () ; 
decomp_ dh_val [MaxProblemSi ze ] ; 
node_ *ch_arr [MaxProblemSizeJ ; 


node *expand (node, child_type, nchild) 
node_ *node; 
child_ child_type; 
int nchild; 

( int entity = node->ent ity ; 
domain g_cost = node->g_cost; 
node_ *new_list = NULL; 
node_ *child, *next_child; 
int i, count - 0, who; 
domain w; 
decomp_ best; 

switch (child_type) ( 

case ALL_CHILDREN: nchild - HUGE_INT; 

case NEXT N CHILDREN: 


/** init **/ 


for (i = 0; i < nTasks; i++) ( 
dh_val[i] - (decomp_) 0;; 
ch_arr [i ] = NULL; 

) 

/** sprout all necessary children **/ 
for (i =0; i < nTasks; i++) 
if (* (node->open_task+i) ) { 

* (node->open_task+i ) = 0; 
ch_arr[i) = allocate_node (node, i); 
dh_val[i) = decomphfun (i); 
if (++count >•* nchild) break; 

) 

/** sort all these children by decomp heuristic values **/ 
while (count — > 0) ( 
best = (decomp_) 0; 
who - -1; 

for (i = 0; i < nTasks; i++) 

If (best < dh_val (1 ) ) 1 best - dh_val(l|; who - 1; t 
ch arr [who) ->next » new_list; 
new_list - ch_arr[who); 
dh_val|who) = (decomp_) 0; 

I 

/** reverse new_list **/ 
next_child = new_list; 
newlist = NULL; 
while ((child = next_child) ) ( 
next_child - child->next; 
child->next - NULL; 
child->brother = new_list; 
new_list = child; 

) 

return new_list; 
break; 

case NEXTCHILD: 

for (i =0; i < nTasks; i++) 
if (*(node->open_task+i) ) ( 

* (node->open_task+i) - 0; 
return allocatenode (node, i); 

) 

break; 

default: break; 

} 

return NULL; 


decomp_ decomp_h_fun (entity) 
int entity; 

I 

return ((decomp) execTime [entity ]) ; 

) 


int i s_infeasible (node) 
node_ *node; 

{ return 0; ) 
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int is_feasible {node} 
node_ *node; 

{ int i; 

for <i =0; i < nTasks; i++} 

if (is_task_alive (node, 1)) return 0; 

return 1; 

} 


solver/grcs .pgm/support .c 


node_ *root_generator () { 

return allocate__node (NULL, -1); 

} 

void iipd_init() ( ) 
void idpd_init() { } 

int is_dominated (node) node_ *node; { return 0; } 


node_ *allocate_node (parentp, entity) 
node_ * parentp; 
int entity; 

{ node_ *p; 

int i, j, who; 

domain tmax *» (domain) 0.0; 

p - get_search_node_f rom_pool () ; 
init_node_struct (p, parentp); 

p->entity - entity; 
p->g_cost - (domain) 0.0; 

/* clean thses value fields */ 
p->lowb = - problem. huge; 
p->upb = problem. huge; 

if (parentp) 

for (i = 0; i < nTasks; i++) * (p->sched_t ime+i) = * (parentp->sched_time+i) ; 
else 

for (i = 0; i < nTasks; 1++) set_task_ali ve (p, i); 

for (i =0; i < nTasks; i++) 

if (is_task_ali ve (p, i)) * (p->open_task+i) = 1; 

if (parentp) { 

for (i =0; i < nProcessors; 1++) 

* (p->proc__ck+i) «* * (parentp->proc_ck+i) ; 

) else { 

for (i =0; i < nProcessors; i++) 

* (p->proc_ck+i) = (domain) 0.0; 

} 

if (parentp) { 

for (i = 0; 1 < nResources; i++) 

* (p-> resour ce__ck+i) = * (parentp->resource_ck+i) ; 

} else { 

for (i = 0; i < nResources; i++) 


* (p->resource_ck+i) = (domain) 0.0; 

} 

if (parentp) ( 

tmax = allocproc (p->proc_ck, Swho); 

for (j =0; j < nResources; j++) 
if (REQ[entity} [ j) ) 

/** resource j is required **/ 

if (tmax < * (p->resource_ck+ j) ) tmax = * (p->resource_ck+ j) ; 

* (p ->sched_time+ent ity) = tmax; 
tmax += execTime [entity ) ; 

* (p->proc_ck+who) - tmax; 

for (j - 0; j < nResources; j++) 

if (REQ[ent ity} [ j] ) * (p->resource_ck+ j) - tmax; 

} 

tmax * (domain) 0.0; 

for (i - 0; 1 < nProcessors; i++) 

if (tmax < * (p“>proc_ck+i) ) tmax - * (p->proc_ck+i) ; 

p->g_cost * tmax; 

return p; 

} 

/* allocate associates for newly allocated search nodes */ 
void pd_region () 

( int offset, *pool, pckoffset, rck_offset, open_offset, sched_t ime_of fset 
int *a, i; 
node_ *p; 

pool » (int *) poolmanager; 

offset - node_conf .node_size / sizeof(int); 

pck offset = sizeof (node_) / sizeof (int); 

rckoffset « pck_offset + nProcessors * sizeof (domain) / sizeof (int); 
open_offset ** rck_offset + nResources * sizeof (domain) / sizeof (int); 
schedtimeof fset = open_offset + nTasks; 

for (i =0; i < Allocat ionSize; i++) { 
p = ( (node_ *) (a = pool + offset * i)); 
p->proc_ck = (domain *) (a + pckoffset); 
p->resource_ck = (domain *) (a + rck_offset); 
p->open_task = (int M (a + open_of fset ) ; 
p->sched_t ime = (domain *) (a + sched_t ime_of fset ) ; 

) 

} 


void reset_sol_buf (s) 
solution^ *s; 

( int 1; 

for {1=0; i < problem. size; i++) s->schedTime [ i ) = (domain) 0.0; 

) 


void evaluate_solut ion (sp) 
search_ *sp; 

( solution_ *sol; 
int i, j; 
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if (sp) sol = sp-> incumbent; 

else error ( ,, evaulate_solut ion: internal error: sp is nil 

print f ("\nPROBLEM: \n" ) ; 

prtntf ("nTasks^d, t\Processors=%d, nResources^%d\Ti“, 
nTasks, nProcessors, nResources); 

for (i = 0; i < nTasks; i++) 

printf { "execTime [ %d ) =%g\n M , i, (float) execTime ( i ) ) ; 

for (i - 0; i < nTasks; i++) { 
for (j = 0; j < nResources; j++) 

printf ("REQ(T=%d ] [R-%d]=%d, ", i, j, REQ[i|(j|>; 
printf ("\n") ; 

} 

printf ("\nSOLUTION:\n") ; 

for (i *= 0; i < problem .size; i++) 

print f ("%d-th task is scheduled at time %g\n M , 
i, (float) (sol->schedTime ( i ) ) ) ; 


1 
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Thu Jan 30 15:46:16 CST 1992 


solver/maze. pgm/def ine . h 


lifndef MAZE_def ine_h 

Idefine MAZE_def ine__h 

/** this compiler definition is very essential, please don't delete it **/ 
#def ine DELAY_FREE_NODE 

typedef long domain; 

#define Domain LONG 

Idefine A1 locat ionSize 256 

Idefine MaxProblemSl ze 130 

Idefine PDSI_PART int x, y; 

Idefine MAX_X_SIZE MaxProblemSize 

Idefine MAX_Y_SIZE MaxProblemSize 

lif MaxProblemSize < 256 
typedef char solelmt_; 
lelse 

typedef int solelmt_; 
lendif 

typedef struct { 
int 

solelmt_ 
solelmt_ 
solelmt_ 
int 

l solution_; 


Idefine 

EAST_WALL 

(0x01) 

Idefine 

SOUTH_WALL 

(0x02) 

Idefine 

WEST WALL 

(0x04) 

Idefine 

NORTH WALL 

(0x08) 

Idefine 

WALL 

(OxOf ) 

Idefine 

EAST_DOOR 

(0x10) 

Idefine 

SOUTH DOOR 

(0x20) 

Idefine 

WEST_DOOR 

(0x40) 

Idefine 

NORTH_DOOR 

(0x80) 

Idefine 

DOOR 

(OxfO) 


Idefine 

set_ 

_east_wall (pt) 

pt 

1 “ 

EAST_ 

WALL 

Idefine 

set 

_south_wal 1 (pt ) 

Pt 

1 “ 

SOUTH 

WALL 

•define 

set_ 

_west_wall (pt ) 

pt 

1 = 

WEST_ 

WALL 

Idefine 

set 

_north_wal 1 (pt ) 

pt 

1 = 

NORTH 

_WALL 

Idefine 

set 

_east_door (pt ) 

pt 

1 = 

EAST_ 

DOOR 

Idefine 

set 

_south_door (pt ) 

pt 

1 = 

SOUTH 

_DOOR 

Idefine 

set 

_west_door (pt) 

pt 

1 ° 

WEST_ 

DOOR 

Idefine 

set 

_north_door (pt ) 

pt 

1 = 

NORTH 

_DOOR 


•define 

rm 

east wal 1 (pt ) 

pt 

4 = 

(~ EAST WALL) 

•define 

rm 

south wall (pt) 

pt 

4 = 

(~ SOUTH WALL) 

Idefine 

rm 

west wall(pt) 

pt 

4 = 

(~ WEST WALL) 

Idefine 

rm_ 

_north_wall (pt) 

pt 

4 = 

(~ NORTH WALL) 


pre_buf; 

X [MAXXSIZE * MAXYSIZEJ; 
y [MAX_X_SIZE * MAX_Y_SIZE1; 
dir [MAX X SIZE * MAX_Y__SI ZEJ ; 
post__buf; 


Idefine rm_east_door (pt ) pt 4 = (- EAST_DOOR) 

Idefine rm south door (pt) pt 4 = (~ SOUTH_DOOR) 

Idefine rm_west_door (pt ) pt 4 c (~ WEST_DOOR) 

Idefine rm_north_door (pt) pt &*• (- NORTH_DOOR) 


Idefine has_east_wall (pt ) (pt I EAST WALL) 

Idefine has_south_wall (pt ) (pt 4 SOUTH_WALL) 

Idefine has_west_wall (pt) (pt 4 WEST_WALL) 

Idefine has_north_wal 1 (pt ) (pt 4 NORTH_WALL) 

•define has_east_door (pt ) (pt 4 EASTDOOR) 

Idefine has_south_door (pt ) (pt 4 SOUTH_DOOR) 

•define has_west_door (pt) (pt 4 WESTDOOR) 

Idefine has_north_door (pt ) (pt 4 NORTH_DOOR) 

•define has wall (pt) (pt 4 WALL) 

Idefine has_door(pt) (pt 4 DOOR) 


typedef enum ( 

NOT_YET = 0, 

EAST = 1, 

SOUTH = 2, 

WEST = 3, 

NORTH = 4, 

NOT_USED_DIR = 100 /** for empty slot in solution **/ 

} directn; 

typedef struct ( int x, y; ) coord; 
lendif MAZE define h 


solver/maze.pgm/abc.c 


int 

X, Y; 

/** 

size of maze **/ 

int 

X_start, Y_start; 

/** 

start point **/ 

int 

X_end, Y_end; 

/** 

end point **/ 

int 

x, y; 

/** 

current location of interest **/ 

int 

idx moves; 

/** 

index of moves **/ 

lifdef 

int 

TAKEOUT_20 

take_out_percent *» 20; 

/** 

percent of wall taking out **/ 


lelse 

int t ake_out_percent - 35 /** 25 **/; /** percent of wall taking out **/ 

lendif 

directn Direction!) = ( NOTYET, EAST, SOUTH, WEST, NORTH ); 
directn Ant iDirection [ ] «= { NOT_YET, WEST, NORTH, EAST, SOUTH ); 

int maze [MAX_X_SIZE] [MAX_Y_SIZE] ; 
coord moves (MAX_X_SIZE * MAX_Y_SIZE); 


sol ver/ma ze . pgm/bound . c 


void eval uate_lower_bound (node) 
node_ ‘node; 

I 

lifdef DEBUG 

if (cmd. debug >= 4) printf (“eval lowb\n") ; 
lend! f 
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node->lowb = node->q_cost + (domain) calcgoal distance (node->x, node->y) ; 


solution_ *eva luat e_upper_bound (node, sol) 
node_ *node; 
solution^ *sol; 

( int count; 

node_ *p; 
fifdef DEBUG 

if (cmd. debug >= 4) print f ("eval upb\n“); 

#endi f 

if (is_feasible (node)) ( 

/** calc how many moves so far **/ 

for (count « 0, p « node; p; p « p->parent) count++; 
sol->dir (count ) - (solelmt_) NOT_USED_DIR; 

for (p = node; p; p - p->parent) ( 

— count; 

sol->x [count ) ■ (solelmt_) p->x; 
sol->y ( count ) - (solelmt_) p->y; 
sol->dir (count ) ■ (solelmt_) p->entity; 

) 

node->upb « node->g_cost; 

) 

else node->upb - maze_eval_upb (node, sol); 
return sol; 


domain maze_eval_upb (node, sol) 
node_ *node; 
solution_ *sol; 

{ directn curr_dir • node->entity; 
int curr_x = node->x; 
int curr_y = node->y; 
domain num^moves = 0; 

int i, who, new_x, new_y, count, new, best_x, best_y; 
directn new_dir, best_dir; 
domain best, dist; 
node_ *p; 

yesno_ pre_move (); 

/** calc how many moves so far *•/ 

for (count- ® 0, p » node; p; p = p->parent) count++; 
new = count; 

for (p = node; p; p = p->parent) ( 

— count; 

sol->x[count ] « (solelmt_) p*>x; 
sol->y [count j = (solelmt_) p->y; 
sol->dir(count ] = (solelmt_) p->entity; 

) 

nunwnoves = 0; 
moves (0].x = curr_x; 
moves(0].y = curr_y; 
while (1) ( 

best “ problem. huge; 
who - -1; 


for (i = 1; i <= 4; i++) ( 

if (pre_move (curr_dir, curr_x, curr_y, i, 

&new_dir, finew_x, inew_y, num_moves) «*° YES) ( 
dist - calc_goal_dlstance (new_x, new_y) ; 
if (best > dist) ( 
best - dist; 
who =1; 
best_x = new_x; 
best_y = new_y; 
best_dir - new_dlr; 

) 

I 

) 

if (who -I) break; 

++num_moves; 

if (nummoves + node->g_cost >= X * Y) ( who * -1; break; ) 
curr_dir = best_dir; 

moves (num_moves) .x = curr_x - best_x; 
moves [num_moves) .y = curr_y - best__y; 

sol->x[newl « (solelmt_) bestx; 
sol->y[new) - (solelmt_) besty; 
sol->dir (new) - (solelmt_) best_dir; 

++new; 

if (best « (domain) 0) break; 

) 

sol->dir [new) - (solelmt_) NOT_USED DIR; 

return ((who ■»« -1) ? problem. huge : (node->g_cost + num moves) ) ; 


yesno_ pre move (curr_dir, curr_x, curr_y, which, new_dirp, new xp, new ^yp, num_moves) 
directn curr_dir; 

Int curr_x, curr_y, which; 
directn *new_dirp; 
int *new_xp, *new_yp; 
domain num_moves; 

( yesno_ is_pre_movable (); 

if (currdir == Ant iDirection [which] ) return NO; 

if (is_pre_movable (curr_x, curr_y. Direction (which) , num_moves) == YES) ( 
switch ((*new_dirp - Direct ion (which) ) ) { 

case EAST: *new_xp = curr_x+l; *new_yp = curr_y; break; 

case SOUTH: *new xp = curr_x; *new_yp = curr_y+l; break; 

case WEST: *new_xp = curr_x-l; *new_yp = curr_y; break; 

case NORTH: *new_xp = curr_x; *new_yp = curr_y-l; break; 

) 

return YES; 

) 

return NO; 


yesno_ ispremovable (x, y, dir, nummoves) 
int x, y; 
directn dir; 
domain nummoves; 
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{ int i; 

switch (dir) ( 
case EAST: 

if (has_east_wal i (maze [x| [y ] ) ) return NO; 
if (++x >= X) return NO; 
break; 
case SOUTH: 

if (has_south_wall (maze (x ] (y ] ) ) return NO; 
if (++y >» Y) return NO; 
break; 
case WEST: 

if (has_west_wall (maze (x) (y ) ) ) return NO; 
if ( — x < 0) return NO; 
break; 
case NORTH: 

if (has_north_wal 1 (maze (x) (y ) ) ) return NO; 
if ( — y < 0) return NO; 
break; 
default : 

return NO; 
break; 

/** check whether this point has been visited or not **/ 
for (i = 0; i <« nunwnoves; i++) 

if (x == moves [i).x && y *=»■» moves (i).y) return NO; 

return YES; 


int cal c__goal_di stance (x, y) 
int x, y; 

{ int d, error; 

d = x - X_end; 
if (d < 0) d - -d; 
error « d; 

d = y - Y_end; 
if (d < 0) d * -d; 
error += d; 


return error; 

} 


solver/ma ze . pgm/gen . c 


• int nrv_maze__conf ; 


void gen_sample_problem 0 
{ int i, temp; 
directn door; 

F.ILE *fp, *fopen (); 

init_maze (); 

x = X_start; 
y - Y_start; 
idx_moves =0; 


while (1) ( 

moves (idx_moves) .x « x; 
moves [idxmoves) .y = y; 

/** select a new door **/ 

while ((door « rand_door () ) =» NOT_YET) 

/** no more door available, and backtrack **/ 
if (backtrack () == NULL) ( 

lifdef NRV_MAZE 

switch (nrv_maze_conf ) { 

case 1: /** start at east wall **/ 

set_east_wall (maze (X_s tart J (Y_start)); 
set__west_wall (maze[X_end) (Y_end) ) ; 
break; 

case 2: /** start at south wall **/ 

set_south_wal 1 (maze [X_start ) (Y_start 1 ) ; 
set north_wall (maze (X_end) (Y_end) ) ; 
break; 

case 3: /** start at west wall **/ 

set west_wall (maze (X_start ) (Y_st art )) ; 
set_east_wall (maze(X_end) (Y_end( ) ; 
break; 

case 4: /** start at north wall **/ 

set_north_wall (maze (X_start ) (Y_start))? 
set_south_wall (maze[X_endl (Y_end) ) ; 
break; 

) 

/** new source and destination of NRV_MAZE **/ 

X start =* X / 2; 

Ystart = Y / 2; 

X_end ° gen_random_int (0, X-l); 

Yend = gen_random_int (0, Y-l); 

ielse 

lifdef MAZE_ENHANCE 

enhance_maze () ; 

lendif 

lifdef BACKWARD_GEN 

/** swap start point and end point **/ 
temp = X_start; X_start = X_end; X_end ■= temp; 
temp = Y_start; Y_start = Y_end; Y_end = temp; 

lendi f 

lendif 

lifdef DEBUG 

if (cmd. debug >= 1) 

print f ("X_start=%d, Y_start=%d; X_end“%d, Y_end=%d\n", 
Xstart, Y_start, X_end, Yend) ; 

lendif 


/** PDSD size **/ 
set__node_size (0) ; 

No_Upper_ Bound = YES; 

fp => fopen (".maze", "a"); 
fprintf (fp, "MAZE (%d, %d, %d) \n" , 

problem. size, problem. seed, take_out_percent ) 


f close (fp) ; 
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return; 

I 

idx_moves++; 

/** rm the wall and set the door, and move it **/ 
switch (door) 1 

case EAST: 

rm_east_wall (maze [x] [y| ) ; 
set_east_door (maze[xHyl); 
x ++; 

rm_west_wall (maze [x] (y) ) ; 
set_west_door (maze (x) (y ) ) ; 
break; 

case SOUTH: 

rm_south_wall (maze (x) (y ) ) ; 
set__south_ door (maze (x) (y ) ) ; 
y++; 

rm_north_wall (maze [x] (yj ) ; 
set_north^door (maze [x] (y ) ) ; 
break; 

case WEST: 

rm_west_wall (maze(x) (y ) ) ; 
set_west_door (maze (x) fy) ) ; 
x ■ ; 

rm_east_wal 1 (maze (x) (y ) ) ; 
set_east_door (maze (x) [ y } ) ; 
break; 

case NORTH: 

rm_jnort h_wall (maze [x] (y) ) ; 
set_nort h_door (maze[x] (y] ) ; 

y — ; 

rm_south_wall (maze (x ] (y ) ) ; 
set_south_door (maze ( x ) ly ] ) ; 
break; 

default: error ("gen_sample_problem: no such direction"); break; 
) 

} /** end while **/ 

) 


void init_maze () 

( int 1, j; 

X = Y ~ problem. size; 

/** init all maze points **/ 
for (i « 0; i < X; i++) 

for (j « 0; j < Y; j++) maze[i][j) = 0; 

/** draw borders **/ 

for (j = 0; j < Y; j++) set_east_wall (maze (X-l J ( j) ) ; 

for (i = 0; i < X; i++) set_south_wall (maze ( i 1 (Y-l J } ; 

for (j ■= 0; j < Y; j + + ) set_west_wall (maze [0J ( j) ) ; 

for (i =0; i < X; i + + ) set_north_wal 1 (maze [ i ] (0 ) ) ; 

/** randomly generate start and end points **/ 
switch ( (nrv_maze_conf = gen__random_int (1,4))) ( 


case 1: /** start at east wall **/ 

X_start « X-l; 

Ystart - gen_random_int (0, Y-l) ; 

Xend * 0; 

Y_end = gen_randora_int (0, Y-l); 
rm_east_wall (maze [X_s tart) (Y_start)) ; 
set_east_door (maze(X_start J (Y_start) ) ; 
rm_west_wall (maze(X_end) (Y_endJ) ; 
set_west_door (maze[X_end] [Y_end) ) ; 
break; 

case 2: /** start at south wall **/ 

X_start a gen_random__int (0, X-l) ; 
Ystart » Y-l; 

Xend = gen_random_int (0, X-l) ; 

Y_end =» 0; 

rm_south_wall (mazetX_start ) [Y^startJ ) ; 
set_south_door (maze [X_start ) [Y_start)) ; 
r m no rt h_wa 11 (ma z e ( X_e nd J [ Y_en d ) ) ; 
set_north_door (maze (X_end) (Y_end)); 
break; 

case 3: /** start at west wall **/ 

X_start ■ 0; 

Y_start « gen_random_int (0, Y-l) ; 

X_end ■ X-l; 

Yend » gen_random_int (0, Y-l); 
rm_west_wall (maze ( X_st art ) (Y_start 1 ) ; 
set_west_door (mazelX_start ) (Y__start)); 
rm_east_wall (maze{X_endl (Y_endl); 
set_east_door (maze (Xend) (Y_end) ) ; 
break; 

case 4: /** start at north wall **/ 

X_start “ gen_random_lnt (0, X-l) ; 
Y_start ° 0; 

X_end “ gen_random_int (0, X-l) ; 

Y_end » Y-l; 

rm_north_wall (maze (X_s tart | (Y_startJ); 
set_north_door (maze(X_start ) (Y_startl); 
rm_south_wall (maze (X_end) [Y_end] ) ; 
set_south_door (maze[X_end) [Y_endl); 
break; 

} 

} 


directn rand door () /** select a new door randomly **/ 

( directn dir[4); 
int num_dir =0; 

/** think about east **/ 

if (! (has_east_door (maze(xj(yl) II has_east_wal 1 (maze(x) (y ] ) ) ) { 
if (has_door (maze(x+l)(y ) ) && (x+1 != X_end || y != Y_end) ) ( 
lifdef MAZE_ENHANCE 

if (gen_random_int (1, 100) > take_out_percent ) ( 
set_east_wall (maze [x] [y] ) ; 
set_west_wall (maze fx+1 1 ly M ; 

) 

felse 

set_east_wall (maze [x ) [y ) ) ; 
se twestwall (maze [x+1 ] (y) ) ; 

lendi f 

) else dir [num dir++) = EAST; 
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) 

/** think about south **/ 

if ( ! (has_south_door (maze(x][y]) || has_south_wall (maze [x ] [y | ) ) ) ( 
if (has_door (maze [x ] [y+1 | ) a (x != X end || y+1 != Y end)) ( 
lifdef MAZE_ENHANCE 

if (gen_random_int (1, 100) > takeoutpercent ) ( 
set_south_wall (maze [ x ) [y] ) ; 
set_north_wall (maze [x) [y+1) ) ; 

I 

#else 

set_south_wall (maze(x) [y] ) ; 
set_north_wall (maze (xj (y+1 ]) ; 

lend! f 

) else dirfnum dlr++] = SOUTH; 

i 

/** think about west **/ 

if ( ! (has_west_door (maze(x][y|) || has_west_wal 1 (maze[x) (yl ) ) ) ( 
if (has_door (maze [x-1 ) (y ) ) si (x-1 != X end || y ! = Y end)) ( 
♦ifdef MAZE_ENHANCE _ 

if <gen_random_int (1, 100) > take_out_percent) ( 
set_west_wall (maze (x ) [y | ) ; 
set_east_wall (maze (x-1 ) (y) ) ; 

) 

lelse 

set_west_wall (maze [x| [y] ) ; 
set_east_wall (maze [x-1 ) [y] ) ; 

lendif 

) else dir[num dlr++) - WEST; 

1 

/** think about north **/ 

if (! (has_north_door (maze[x)[yl) || hasnorthwal 1 (maze(x) (y) ) ) ) | 
if (has_door (maze (x) [y-1 | ) ss (x != X end || y-1 != Y end)) | 

#ifde£ MAZE_ENHANCE 

if (gen_random_int (1, 100) > take_out_percent) 1 
set_north__wal 1 (maze (x) [y ) ) ; 
set_south_wall (maze [x] [y-1 )) ; 

) 

• else 

set_north_wall (maze[x] [y| ) ; 
set_south_wall (maze(x) (y-1)) ; 

#endi £ 

) else dir[num_dir++) = NORTH; 

) 

switch (num_dlr) [ 

case 0: return NOT_YET; break; 
case 1: return di r ( 0 ] ; break; 
case 2: 

case 3: return dir[gen_random_int (0, num_dlr-l)]; break; 

default : fprintf (stderr, "rand_door; illegal num_dir - %d\n" f mint dir); 


int backtrack () 

( 

idx_moves — ; 
x = moves [idx__moves) .x; 
y - moves [idx_moves ] .y; 
return idx_moves; 


I 


lifdef MAZEENHANCE 
void enhance_maze () 

/** make the maze much more difficult to solve **/ 

I 

/** make doors for all directions in start point **/ 

if (X start != X-1) I 

rm_east_wall (maze[X_start) (Y_start|) ; 
rm_west_wall (maze(X_start+l 1 lY_start)) ; 

I 

if (Y_start ! = Y-1) ( 

rm_south_wall (maze [X_start ) (Ystart)); 
rm_north_wall (maze [X_start ) (Y_start+1) ) ; 

( 

if (X_start ! = 0) ( 

rm_west_wall (maze(Xstart) (Y_start)); 
rm_east_wall (maze[X_start-l ) [Ystart]); 

) 

if (Y start !- 0) ( 

rm_north_wall (maze[X_start] [Y_start]); 
rm_south_wall (maze [X_start ) [Y_start-1] ) ; 

) 

/** make doors for all directions in end point **/ 

if (X_end !- X-1) ( 

rm_east_wall (maze(X_end] |Y_end]); 
rm_west_wall (maze[X_end+l] |Y_endJ); 

I 

if (Y_end ! * Y-1) I 

rm_sout hwa 11 (ma ze [ Xend ) [ Y_end ) ) ; 
rmnorthwall (maze[X_end] (Y_end+l|); 

) 

if <X_end !- 0) ( 

rmwestwall (maze[X_endl lY_end)) ; 

rm_east_wall (maze(X_end-l I (Y end ] ) ; 

t 

if (Y_end != 0) ( 

rmnorthwall (maze [Xend] [Y_end] ) ; 
rm_south_wall (maze|X_end) [Y_end-1]); 

) 

I 

lend! f 

Idefine xform(loc) (flag ? (loc) : - (loc) ) 

void print_maze (fname, flag) 

/»* print maze layout in GRAP language **/ 
char *fname; 
int flag; 

I int i, j; 

FILE *fp = fopen (fname, V); 

fprintf (fp, ”.Gl\nframe lnvls ht 71 wld 71\n“); 
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for (j = 0; j < Y; j++) { 

for (i = 0; 1 < X; 1 + + ) ( 

if (has_east_wal 1 (maze ( i ) ( j | ) ) 

fprintf (fp, “line from %d, Id to Id, ld\n“, 
1 + 1, xform (j), 1 + 1 , xform (j+1)); 
if (has_south_wall (maze ( 1 ) ( j ] ) ) 

fprintf (fp, “line from Id, Id to Id, id\n“, 
1, xform (j+1), 1 + 1, xform (j+1)); 

If (has_west_wall (maze ( 1 ) ( j | ) ) 

fprintf (fp, "line from Id, Id to Id, ld\n", 
i, xform (j), 1, xform (j+1)); 

If (has_north_wall (maze [1 ) ( j | ) ) 

fprintf (fp, “line from Id, Id to Id, ld\n“, 
1, xform (j), 1+1, xform (j)); 

) 

I 

If (flag) fprintf (fp, “,G2\n“); 
fclose (fp) ; 


solver/maze.pgm/search.c 


node_ ‘expand (node, child_type, nchlldren) 
node_ ‘node; 
chlld_ chlld_type; 
lnt nchlldren; 

( node_ ‘head = NULL, ‘child; 
lnt 1; 

/“ check for infeaslblllty “/ 

If (node->ndecomp >« 4) return NULL; 

switch (chlld_type) ( 
case ALL_CHILDREN: 

for (1 = 0; 1 <4; 1++) 

if (child = getchlld (node, 1)) ( 
chi ld->brother « head; 
head = child; 

) 

break; 

case NEXT_CHILD: 

If (head - get_child (node, node->ndecomp) ) head->brother = NULL; 
break ; 

case NEXT_N_CHI LDREN : 

for (i =0; i < nchlldren; 1 + + ) { 

if (child = get_child (node, node->ndecomp) ) [ 
chi ld->brot her » head; 
head « child; 

1 

if (node->ndecomp >= 4) break; 

1 

break; 

default: break; 

) 

return head; 


node_ *get_child (p, which) 
node *p; 
int which; 


( node_ *parentp » p->parent; 
int x = p->x, y = p->y; 

whichf+; /** Direction [ 0 J « Ant iDirectionlO) == NOT YET **/ 
(p->ndecomp) ++; 

if (p->entity -- AntiDirection[which) ) return NULL; 
if (is_movable (p, x, y. Direction (which) ) == YES) 
switch (Direction [whichj ) { 
case EAST: 

return (allocate_node (p, EAST, x+1, y, p->g_cost+l) ) ; break; 
case SOUTH: 

return (allocate_node (p, SOUTH, x, y+1, p->g_cost + 1) ) ; break; 
case WEST: 

return (allocate node (p, WEST, x-1, y, p->g_cost+l) ) ; break; 
case NORTH: 

return (allocate_node (p, NORTH, x, y-1, p->g_cost + l) ) ; break; 
default: 

error (**get_child : no such direction"); break; 

I 

return NULL; 

) 


yesno_ is_movable (p, x, y, dir) 
node_ *p; 
int x, y; 
directn dir; 

( 

switch (dir) 1 
case EAST: 

if (has_east_wall (maze (x| [y 1 ) ) return NO; 
if (++x >“ X) return NO; 
break; 
case SOUTH: 

if (has_south_wall (maze(x) (y ) ) ) return NO; 
if (++y >= Y) return NO; 
break; 
case WEST: 

if (has _west_wall (maze (x) [ y ] ) ) return NO; 
if ( — x < 0) return NO; 
break; 
case NORTH: 

if (has_north_wall (maze(x) (y ) ) ) return NO; 

if ( — y < 0) return NO; 

break; 

default: error ( " ls movable : no such direction"); break; 

) 

/ ** check whether this point has been visited or not **/ 

/** hence, we need DELAY_FREE_NODE compiler definition **/ 
while ( (p = p->parent ) ) 

if (x == p->x && y == p->y) return NO; 

return YES; 

1 


int is_infeasible (node) 
node_ *node; 

( return 0; } 


int is feasible (node) 
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node_ *node; 

( return ( (node->x == X_end &£ node->y == Y_end) ? 1 : 0) ; } 


solver/maze . pgm/support . c 


node_ *root_generator () 

( return allocate_node (NULL, N0T_YET, X^start, Ystart, (domain) 0); ) 

void iipd_init () ( } 
void idpd_init () { } 

int is_dominated (node) node_ *node; { return 0; } 


node_ *al locate_node (parentp, dir, x, y, g_cost) 
node_ * pa rent p; 
directn dir; 
int x, y; 
domain g_cost; 

{ node_ *p; 
i nt i ; 

p - get_search_node_f rom pool (); 
init_node_struct (p, parentp); 

p- > g_ c °st - g_cost; 
p->entity - dir; 
p->x = x; 
p->y - y; 

/** clean thses value fields **/ 
p->lowb = p->upb = problem. huge; 

return p; 

) 


/** allocate associates for newly allocated search nodes **/ 
void pd_region () { ) 


void reset_sol_buf (s) 
solution_ *s; 

{ int i, j; 

s->dir ( 0) = (solelmt_) NOT_USED_DIR; 


void evaluate_solut ion (sp) 
search^ *sp; 

{ solution_ *sol; 
node_ *p; 
directn dir; 

FILE *fp, *solfp; 
char fname(30); 
int count = 0, x, y; 

if (sp) sol = sp->incumbent; 

else error ("evaluate_solution: internal error: sp is nil**); 
if (take_out_percent ) 


sprintf (fname, "layout. Id.ld.ld", 

problem. si ze, problem. seed, take_out_percent ) ; 
else sprintf (fname, “ layout ,ld.%d" , problem. st re, problem. seed) ; 

print maze (fname, 0); 

for (count =0; ((directn) sol->dir[count ) ) != NOT_USED_DIR; count++) ; 

/** reverse the chain of moves **/ 
fp *= fopen (fname, "a"); 
dir - NOTJYET; 

if (problem. size <= 30) 

while ( — count >= 0) { 
x = sol ->x ( count ) ; 
y = sol->y [count ) ; 
switch (dir) ( 
case EAST: 

fprlntf (fp, "arrow from If, If to %f, %f\n", 

x+,25, - (y+ .5) , x+,75, - (y+ .5 > ) ; break; 

case SOUTH: 

fprlntf (fp, "arrow from If, *f to %f, %f\n", 

X+.5, - (y+ . 25) , x+,5, -<y+.7S>); break; 

case WEST: 

fprlntf (fp, "arrow from If, If to If, %f\n", 

x+,75, - (y+ . 5) . X+.25, - (y+.5J I ; break; 

case NORTH: 

fprlntf (fp, "arrow from If, If to If, %f\n", 

X+.5, - (y+,75) , x+.5, - (y + . 25) > ; break; 

case NOTTET: 

fprlntf (fp, "times at If, lf\n", x+.5, - (y+ . 5) > ; break; 

( 

dir = (directn) sol->dlr(count] ; 

) 

else 

while ( — count >= 0) 

fprlntf (fp, "dot at If, %f\n", sol->x[count ) +. 5, - (sol->y [count ) +. 5) ) ; 

fprlntf (fp, ".G2\n"); 
fclose (fp) ; 
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solver/puzz.pgm/define.h 


•ifndef PUZZ_def ine_h_ 

•define PUZZ__def ine_h_ 

/** this compiler definition is essential, please don't delete It **/ 

•define DELAY_FREE_NODE 

typedef long domain; 

•define Domain LONG 

•define AllocationSize 256 

•define PDSI_PART \ 

int *locmap; /** location map of tiles **/ 

/** for problem generation **/ 

•define MaxProblemSize 30 

• define N0TJJSED_DIR ('?') 

/*' solution is a pointer to node_ structure, however, it is not declared yet, 
** as a result, "void *“ is used instead. **/ 
typedef struct ( int pre_buf; char ‘move; int post_buf; ) solution ; 

/** shorthand **/ 

• define get_x(loc) (loc % Layoutsizel) 

•define get_y(loc) ((int) (loc / Layoutsizel)) 

♦define get_loc(x,y) (x + y * Layoutsizel) 

•endlf PUZZ define h 


solver/puzz.pgm/abc.c 


int; 

*GoalLocMap; 

/** 

goal location 

map of items **/ 

int . 

*InitLocMap; 

/** 

goal location 

map of items **/ 

int 

Layoutsizel ; 

/** 

size of board 

edge **/ 

int 

LayoutSize2; 

/** 

num of items, 

def= layout_sizel * layout_sizel **/ 

int 

Direction!) * l 

' N' , 

r 'S', 'E', 'W 

' ); 

int 

Ant iDirection ( ) 

= i 

'S', 'N', 'W' 

• 'E' ) ; 

int 

* tilemap; 

/** 

internal var 

for printing board configuration **/ 

int 

*tempLocMap; 

f * * 

temporary map 

of items **/ 


•ifdef 

KORF 

BENCHMARKS 



int 

Korf [100) [16) = 

I 
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ISE' solver 'puzz.pgm, CHHC-92-1 

domain puzz_eval_lowb () , puzz_eval upb () ; 


void evaluate_lower_bound (node) 
node_ ‘node; 

{ 

lifdef DEBUG 

if (cmd. debug >= 4) printf ("eval lowb\n“); 
fendif 

node->lowb = node->g_cost + (domain) calc_di stance (node->locmap) ; 

) 


solution^ *evaluate_upper_bound (node, sol) 
node_ “node; 
solution^ ‘sol; 

( node_ *p; 

int count; 
lifdef DEBUG 

if (cmd. debug > = 4) print f ("eval upb\n"); 
lendi f 

sol->move *= NULL; 
if (is_feasible (node)) ( 

node->upb = node->g cost; 

for (count - 0, p = node; p->entity != -1; p = p->parent) count++; 
sol->move = (char *) malloc ((count+1) * sizeof (char)); 

* (sol->move+count) ~ NOT_USED_DIR; 

for ( — count, p = node; p->entity ! ■= -1; p » p->parent, — count) 

* (sol->move+count ) = (char) p->entity; 

} 

else node->upb - problem. huge; 
return sol; 

) 


int calc_distance (locmap) 
int * locmap; 

{ int i, d, error - 0, xl, x2, yl, y2; 

for (i = 1; i < LayoutSize2; i++) { 
xl = get_x (‘(GoalLocMap + i)); 
yl = get_y ( * (GoalLocMap + i)); 
x2 = get_x {‘{locmap + i)); 
y2 = get_y (‘ (locmap 4- i)); 
if ( (d = xl - x2) < 0) d = -d; 
error + = d; 

if ( (d = yl - y2) < 0) d = -d; 
error += d; 

) 

return error; 

} 


solver/puzz .pgm/gen . c 


void gen_sample_problem () 

( int i, j, temp, who, bound; 

lifdef KORF BENCHMARKS 


static int index = -1000; 

if (index == -1000) index « problem. seed - 101; 
lendif 

LayoutSizel * problem. size; 

LayoutSize2 = LayoutSizel * LayoutSizel; 
bound « LayoutSize2 - 1; 

I if defined (TEST_KORF_BENCHMARKS) && defined (KORF_BENCHMARKS) 

/ “ test if any typo in Korf's 15-puzzle benchmarks “/ 
for (index = 0; index < 100; index++) 
for (i « 0; i < LayoutSize2; i++) I 

if (Korf (index) 11) > 15 && Korf (index) (i] < 0) 

printf ("gen: Korf's 15-puzzle benchmark: out of range: index=%d, i=%d\n" 

, index, 1) ; 

for (j - i+1; j < LayoutSize2; j++) 

if (Korf (index) (i) -- Korf ( index) ( j ) ) 

printf ("gen: Korf's 15-puzzle benchmark: duplicate: index=%d, i=%d, 
j=%d\n", index, i, j); 

) 

printf ("Congratulations: PASSEDXn"); 
exit (0); 
lendi f 

/ “ gen initial loc map of items “/ 

InitLocMap ~ (int •) malloc (sizeof (int) * LayoutSize2) ; 

if (problem. seed <= 100 |) problem. seed > 200 || problem. size ! « 4) { 

/“ my own way to generate problem “/ 

for (i “ 0; 1 < LayoutSize2; 1+ + ) * (InitLocMap + 1) = 1; 
for (i “ 0; 1 < bound; 1++) ( 

who = gen_randora_int (i, bound); 
temp =■ ‘(InitLocMap + i); 

•(InitLocMap + i) = • (InitLocMap + who); 

• (InitLocMap + who) => temp; 

) 

) else ( 

/** use Korf's 15-puzzle benchmarks in IDA* paper for seed in (101,200) “/ 
for (1=0; 1 < LayoutSize2; i++) ‘(InitLocMap + Korf ( index )( i ) ) = i; 
index+4; 

) 

/“ gen goal loc map of items “/ 

GoalLocMap = (int ‘) malloc (sizeof (int) * LayoutSize2) ; 
for (i = 0; i < LayoutSize2; 1++) ‘(GoalLocMap + 1) = i; 

/“ gen temp loc map “/ 

tempLocMap = (int *) malloc (sizeof (Int) * LayoutSize2) ; 

lifdef DEBUG 
if (cmd. debug >= 1) ( 

printf ("Initial State:\n“); 
for (i =0; i < LayoutSize2; i++) 

‘(tempLocMap + ‘(InitLocMap + i)) = i; 
for (i = 0; i < LayoutSize2; i-f + ) 

printf (" %d ", ‘(tempLocMap + i)); 
printf ("\nGoal State:\n"); 
for (i ® 0; i < LayoutSize2; i++) 

‘(tempLocMap + ‘(GoalLocMap + i)) = i; 
for (i = 0; i < LayoutSize2; i++) 

printf (" %d ", ‘(tempLocMap + i)); 
printf ("\n") ; 

} 

lendif 



ISE' solver' puzz .pgm, CRHC-92-1 


/** PDSD size **/ 

set_node_size (LayoutSize2 * sizeof (int)); 

/** PUZZ does not supply upper bound **/ 
No_Upper_Bound ='YES; 

1 


so 1 ver /puz z. pgm/ search. c 


node_ *get_child {) ; 

yesno__ is_movable (), i s_same_layout {) ; 
void move_blank move_locmap_blank (); 

node__ *expand (node, child_type, nchildren) 
node__ *node; 
child_ child_type; 
int nchildren; 

{ node_ *head « NULL, *child; 
int i ; 

/** check for infeasibility **/ 
if (node->ndecomp >** 4) return NULL; 

switch (child_type) { 
case ALL_CHILDREN: 

for (i = 0; i < 4; i++) 

if (child *= get__child (node, i) ) ( 
child->brother = head; 
head * child; 

) 

break; 

case NEXT_CHILD: 

if (head = get_child (node, node->ndecomp) ) head->brother * NULL; 
break; 

case NEXT_N_CHILDREN: 

for (i =0; i < nchildren; i+ + ) ( 

if (child = get_chi Id (node, node->ndecomp) ) ( 
child->brother = head; 
head = child; 

} 

if (node->ndecomp >= 4) break; 

1 

break; 

default: break; 

1 

return head; 

1 


node_ *get_child (node, which) 
node_ *node; 
int which; 

{ node_ *parentp = node->parent ; 

(node->ndecomp) ++; 

if (node->ent ity == Ant iDirection [which J ) return NULL; 
if (is_movable (node, Direction [which) ) YES) 

return allocate^node (node. Direction [which) , node->g_cost+l) ; 
return NULL; 


} 


yesno_ is movable (node, dir) 
node_ *node; 
int dir; 

{ int x = getx (* (node-> locmap) ) ; 
int y = get_y (* (node-> locmap) ) ; 
int i; 
node_ *p; 

switch (dir) { 

case 'N': if (++y >*= LayoutSizel) return NO; break; 

case 'S': if ( — y < 0) return NO; break; 

case 'E' : if (+*x >* LayoutSizel) return NO; break; 

case 'W': if ( — x < 0) return NO; break; 

default: error ("is_movable: no such direction"); break; 

) 

/** check the history **/ 

for (i =0; i < LayoutSize2; i++) * (terapLocMap+i) = Mnode->locmap+i) ; 
move_locmap_blank (tempLocMap, dir); 
for (p = node; p; p = p->parent) 

if (is_same layout (tempLocMap, p->locmap) ) return NO; 

return YES; 

1 


void moveblank (node, dir) 
node_ *node; 
int dir; 
i 

move_locmap_blank (node->locmap, dir); 


void move_locmap_blank (locmap, dir) 
int locmapl); 
int dir; 

( int x = getx (locmap [0 J ) ; 
int y = get_y (locmap [0) ) ; 
int i, where, temp, err_flag = 0; 


switch (dir) ( 


case ' N' : 

if 

(++y 

>= LayoutSizel) 

err flag 

= l; 

break 

case ' S' : 

if 

(— y 

< 0) 

err_f lag 

= l; 

break 

case ' E' : 

if 

( + +X 

>= LayoutSizel) 

err_f lag 

= 1; 

break 

case ' W' : 
default : 

if 

(—X 

< 0) 

err_f lag 
err_f lag 

* 1; 
= l; 

break 

break 


) 

if (errflag) error ("is_movable: no such direction"); 

where = getloc (x, y) ; 
for (i = 0; i < LayoutSize2; i++) 
if (where == locmap(i)) break; 
if (i == LayoutSize2) error ("move_blank: cannot move"); 
temp = locmap (0); 
locmaplO) = locmap! i); 
locmap[i) - temp; 


int is infeasible (node) 



ISE' solver' puzz . pgm, CRHC-92-1 

node_ ‘node; 

I return 0; 1 


int is_feasible (node) 
node_ ‘node; 

( return (is_same_layout (node->locmap, GoalLocMap) ) ; ) 

yesno_ is_same_layout (locmapl, locraap2) 
int ‘locmapl, *locmap2; 

1 int i; 

for (i - 0; i < LayoutSize2; i++) 

if (‘(locmapl + i) != * (locmap2 + i > ) return NO; 
return YES; 

) 


solver/puzz .pgm/support . c 


node_ ‘root_generator () ( return (allocatenode (NULL, -1, (domain) 0)); | 
void iipd_init () 

1 tilemap = (int *) malloc (problem. size * problem. size * sizeof (int)); | 
void idpd_init () 1 ) 

int is_domlnated (node) node__ ‘node; ( return 0; I 


node_ *allocate_node (parentp, entity, g cost) 
node_ 'parentp; 
int entity; 
domain g_cost; 

1 node_ *p; 
int i; 

p = get_search_node_from_pool () ; 
init_node_struct (p, parentp); 

p->entity “ entity; 
p->g_cost = g_cost; 

/“ clean thses value fields “/ 
p->lowb = - problem. huge; 
p->upb = problem. huge; 

if (parentp) ( 

for (1 - 0; i < LayoutSlze2; 1++) 

* (p->locmap + i) = * (parentp->locmap + i) ; 
move_blank (p, entity); 

) eise ( 

for (i =■ 0; i < LayoutSize2; 1++) 

* (p->locmap + i) = ‘(InitLocMap + i); 

) 

return p; 

) 


/“ allocate associates for newly allocated search nodes “/ 
void pd_region () 


( int offset, ‘pool, locmap_offset, *a, i; 
node_ *p; 

pool = (int *) poolmanager; 
offset - nodeconf. node size / sizeof (int); 
iocmapof fset - sizeof (node) / sizeof (int); 
for (i - 0; 1 < AllocationSize; i++) I 

p - ( (node_ *) (a = pool + offset * i)); 

p->locmap = a + locmap_of f set; /“ allocate ‘locmap frame “/ 

) 

1 


void reset_sol_buf (s) solution_ *s; ( s->move « NULL; I 


void print_conf (locmap) 
int locmapl | ; 

( int x, y, loc, tile; 

/** transform locmap into tilemap “/ 
for (tile = 0; tile < LayoutSize2; tile++) 

*(_tilemap + locmapltile) ) = tile; 

/“ print out the board based on tilemap **/ 
printf (*\n“); 

for (y = Layout Si zel - 1; y >■ 0; y — ) ( 
for (x “ 0; x < LayoutSizel; x++) ( 
loc - get_loc (x, y) ; 
printf (• %2d ", * (_tilemap + loc) ) ; 

I 

printf ("\n"); 

1 

) 

void evaluate_solutlon (sp) 
search_ *sp; 

( solution_ ‘sol; 
int i; 

if (sp) sol ■ sp->lncumbent; 

else error ("evaluate_solutlon: internal error: sp is nil"); 

printf ("\nlnitial Board"); 
printconf (InitLocMap); 
printf ("Goal Board"); 
print_conf (GoalLocMap) ; 
printf ("\nSOLUTION:\n") ; 

for (i - 0; * (sol->move+i) != NOT_USED_DIR; i++) I 
lifdef FULLDISPLAY 

printf ("\n%c", (char) * (sol->move+i) ) ; 

roove_l ocmapblank (InitLocMap, (int) * (sol->move+l) ) ; 

print_conf (InitLocMap); 

Seise 

printf (“ %c ", (char) * (sol->move+i) ) ; 

lendi f 

) 


1 


printf ("\n“); 



ISE'ts' Makefile, CRHC-92-1 


$(CC) $ (CFlags) -c . interface. c -o Interface. o 


Thu Jan 30 17:14:38 CST 1992 


ts .Makefile 


.SILENT: 

CC = cc 

CFlags = -DDEBUG -DSUN -DSYM_TSP -DLOWBGUIDANCE -g 
LoadFlags = -lm 

SRC = ../. . /src 

CSP = ts 

PROBM = $ (SRC) /solver/ats .pgm 
BIN = . 

HOME - $ (SRC) 

ALG - $ (HOME) /algorithm 
INCL « $ (HOME) /include 
INTFC - $ (HOME) /interface 
KERNEL = $ (HOME) /kernel 
OPEN - $ (HOME) /open 
PRIM - $ (HOME) /primitive 

Conf igFiles = $ (PROBM) /config . h $ (INCL) /config.h 

MostHelpFiles = $ (INCL) /limits. h $ (PROBM) /define. h $ (INCL) /define .h $ (Conf igFiles) 
HelpFiles - $ (MostHelpFiles) $ (INCL) /var. h $ (INCL) /debug. h 

SearchBinFiles ■= algorithm. o include. o interface. o kernel. o open.o primitive. o 
ProbmBinFiles = problem. o 

# 

# main program 

# 

all: $ (HelpFiles) $ (SearchBinFiles) $ (ProbmBinFiles) 

$(CC) $ (CFlags) $ (SearchBinFiles) $ (ProbmBinFiles) $ (LoadFlags) -o $(CSP) 

cleanall : 

rm -f $ (BIN) / * . o $ (BIN) / core $(BIN)/.*.c 


I 

f kernel/ 

« 

kernel. o: $ (HelpFiles) $ (KERNEL) /*.c 

cat $ (HelpFiles) $ (KERNEL) /*. c > _;\ 
mv -f __ . kernel. c;\ 

$(CC) $ (CFlags) -c . kernel. c -o kernel. o 


I 

# open/ 

# 

open.o: $ (HelpFiles) $(0PEN)/ fc .c 

cat $ (HelpFiles) $(OPEN)/*.C > _;\ 
mv -f _ ,open.c;\ 

$(CC) $ (CFlags) -c .open.c -o open.o 


# 

I primitive/ 

f 

primitive. o: $ (HelpFiles) $(PRIM)/*.c 

cat $ (HelpFiles) $(PRIM)/*.C > _;\ 
mv -f _ . primitive. c; \ 

$ (CC) $ (CFlags) -c . primitive. c -o primitive. o 


I 

I Problem Depedent Part 

I 

problem. o: $(HelpFiles) ${PROBM)/*.C 

cat $ (HelpFiles) $ (PROBM) / * , c > _;\ 
mv -f __ . problem, c; \ 

$(CC) $ (CFlags) -c . problem, c -o problem. o 


# algorithm/ 

algorithm. o: S(HelpFlles) $(ALG)/*.c 

cat $ (HelpFiles) $(ALG)/*.c > _;\ 
mv -f _ . algorithm. c; \ 

$ (CC) $ (CFlags) -d . algorithm. c -o algorithm. o 


# include/ 

# 

include. o: $ (MostHelpFiles) $ (INCL) /var .c $ (INCL) /debug. c 

cat $ (MostHelpFiles) $ (INCL) /var. c $ (INCL) /debug. c > _;\ 
mv -f _ . include. c; \ 

$ (CC) $(CFlags) -c . include. c -o include. o; 


6 

S interface/ 

# 

interface. o: $ (PROBM) /output . h S(HelpFiles) $(INTFC)/*.c 

cat $ (PROBM) /output .h $ (HelpFiles) $ (INTFC) /*.c > _;\ 
mv -f . Interface- c; \ 



ISE'ks' Makefile, CRHC-92-1 


$ (CC) $ (CFlags) -c . interface. c -o interface. o 


Thu Jan 30 17:14:35 CST 1992 


ks. Makefile 


■SILENT: 

CC = cc 

CFlags « -DDE8UG -DSUN -DLOWB_GU IDANCE -g 
LoadFlags = -lm 

SRC = . ./. ./src 

CSP - ks 

PROBM = S (SRC) /solver/S (CSP) .pgm 
BIN = . 

HOME = $ (SRC) 

ALG - S (HOME) /algorithm 
INCL » $ (HOME) /include 
INTFC = $ (HOME) /interface 
KERNEL = $ (HOME) /kernel 
OPEN - S (HOME) /open 
PRIM - S (HOME) /primitive 

Conf igFlles = $ (PROBM) /config.h $ (INCL) /conf ig. h 

MostHelpFiles = S (INCL) /limits. h S (PROBM) /define, h S (INCL) /define . h $ (Conf igFlles). 
HelpFiles = S (MostHelpFiles) S (INCL) / var . h S (INCL) /debug. h 

SearchBlnFiles = algorithm. o include. o interface. o kernel. o open.o primitive. o 
ProbmBinFlles - problem. o 

« 

• main program 

f 

all: S(HelpFiles) S (SearchBlnFiles) $ (ProbmBinFlles) 

$(CC) $ (CFlags) S (SearchBlnFiles) S (ProbmBinFlles) S(LoadFlags) -oS(CSP) 

cleanal 1 : 

rm -f $ (BIN) / * . o $ (BIN) /core $(BIN)/.*.c 


I 

I kernel/ 

I 

kernel. o: S (HelpFiles) S (KERNEL) /*. c 
cat $ (HelpFiles) $ (KERNEL) /*. 
mv -f _ . kernel. c;\ 

$ (CC) $ (CFlags) -c . kernel. c 


I 

I open/ 

I 

open.o: S(HelpFlles) $(OPEN)/*.c 

cat S (HelpFiles) $(OPEN)/*.c : 
mv -f _ .open.c;\ 

S (CC) S (CFlags) -c .open.c -o 


I 

I primitive/ 

I 

primitive. o: $ (HelpFiles) S(PRIM)/*.c 
cat S (HelpFiles) S(PRIM)/*.c : 
mv -f _ . primitive. c;\ 

5 (CC) S (CFlags) -c .primitive 


I Problem Depedent Part 

f 

problem. o: S(HelpFlles) $(PROBM)/«.c 
cat S (HelpFiles) S (PROBM) /*.c 
mv -f _ . problem. c; \ 

S (CC) $ (CFlags) -c . problem. c 


# algorithm/ 

algorithm. o: S(HelpFiles) S(ALG)/*.c 

cat $ (HelpFiles) $(ALG)/*.c > _;\ 
mv -f _ .algorithm. c;\ 

S (CC) S (CFlags) -c . a lgorit hm . c -o algorithm. o 


I 

4 include/ 

I 

include. o: 5 (MostHelpFiles) S (INCL) /var. c $ (INCL) /debug. c 

cat S (MostHelpFiles) S ( INCL) /var . c $ (INCL) /debug. c > _;\ 
mv -f _ . include. c;\ 

S (CC) $ (CFlags) -c . include, c -o include. o; 


I interface/ 

I 

interface. o: S (PROBM) /output . h S (HelpFi les) S < INTFC) /*. c 

cat S (PROBM) /output .h $ (HelpFiles) S (INTFC) /*.c > _;\ 
mv -f _ . interface. c; \ 


•o kernel. o 

• _;\ 
open.o 

> _;\ 

.c -o primitive. o 
> 

-o problem. o 



ISE'pp' Makefile, CRHC-92-1 


$ (CC) $ (CFlags) -c . interface. c -o interface. o 


Thu Jan 30 17:14:32 CST 1992 


pp. Makefile 


.SILENT: 

CC = cc 

CFlags = -DDEBUG -DSUN -DLOWB_GUIDANCE -g 
LoadFlags = -lm 

SRC = . . /. ./ src 


I 

# kernel/ 

I 

kernel. o: $ (HelpFiles) $ (KERNEL) /*. c 

cat $ (HelpFiles) $ (KERNEL) /*. c > 
mv -f _ . kernel. c;\ 

$ (CC) $ (CFlags) -c . kernel. c -o kernel. o 


CSP - pp 

PROBM - $ (SRC) /solver/$ (CSP) .pgm 
BIN = . 

HOME - $ ( SRC) 

ALG - $ (HOME) /algorithm 
INCL = $ (HOME) /include 
INTFC = $ (HOME) /interface 
KERNEL = $ (HOME) /kernel 
OPEN * $ (HOME) /open 
PRIM - $ (HOME) /primitive 

Conf igFiles - $ (PROBM) /config . h $ (INCL) /conf ig . h 

MostHelpFiles = $ (INCL) /limits. h $ (PROBM) /define. h $ (INCL) /define .h $ (Conf igFiles) 
HelpFiles « $ (MostHelpFiles) $ (INCL) /var.h $ (INCL) /debug. h 

SearchBinFiles = algorithm. o include. o interface. o kernel. o open.o primitive. o 
ProbmBinFiles - problem. o 

# 

8 main program 

# 

all: $(HelpFiles) $ (SearchBinFi les) $ (ProbmBinFiles) 

$ (CC) $ (CFlags) $ (SearchBinFi les) $ (ProbmBinFiles) $ (LoadFlags) -o $(CSP) 

cleanal 1 : 

rm -f $ (BIN) / * . o $(BIN)/core $(BIN)/.*.c 


# open/ 

# 

open.o: $(HelpFiles) $(OPEN)/*.c . 

cat $ (HelpFiles) $(OPEN)/*.c > _;\ 
mv -f _ .open.c;\ 

$(CC) $ (CFlags) -c .open.c -o open.o 


I 

I primitive/ 

I 

primitive. o: $ (HelpFiles) $(PRIM)/*.c 

cat $ (HelpFiles) $(PRIM)/*.c > _;\ 
mv -f _ .primit ive. c; \ 

$ (CC) $ (CFlags) -c . primitive. c -o primitive. o 


« 

# Problem Depedent Part 

I 

problem. o: $(HelpFiles) $(PROBM)/*.c 

cat $ (HelpFiles) $ (PROBM) /*.c > _;\ 
mv -f _ .problem. c;\ 

$(CC) $ (CFlags) -c . problem. c -o problem. o 


8 

8 algorithm/ 

# 

algorithm. o: $(HelpFiles) $(ALG)/*.c 

cat $ (HelpFiles) $(ALG)/*.c > _;\ 
mv -f _ . algorithm. c; \ 

$ (CC) $ (CFlags) -c . algorithm. c -o algorithm. o 


8 include/ 

include. o: $ (MostHelpFi les) $ (INCL) /var . c $ (INCL) /debug. c 

cat $ (MostHelpFiles) $ (INCL) /var . c $ (INCL) /debug, c > \ 

mv -f __ . include, c; \ 

$ (CC) $ (CFlags) -c . include. c -o include. o; 


# 

# interface/ 

8 

interface. o: $ (PROBM) /output .h $ (HelpFi les) $(INTFC)/*.c 

cat $ (PROBM) /output .h $ (HelpFiles) 5(INTFC)/*.c > _;\ 
mv -f _ . interface. c; \ 



ISE' vc' Makefile, CRHC-92-1 


$ (CC) $ (CFlags) -c . Interface. c -o interface. o 


Thu Jan 30 17:14:29 CST 1992 


vc. Makefile 


.SILENT: 

CC “ cc 

CFlags = -DDEBUG -DSUN -DLOWB_GUIDANCE -g 
LoadFlags ■ -Ira 

SRC = . . /. ./src 

CSP ■ vc 

PROBM = $ (SRC) /solver/S (CSP) .pgm 
BIN = . 

HOME = $ (SRC) 

ALG = $ (HOME) /algorithm 
INCL - S (HOME) /include 
INTFC = S (HOME) /Interface 
KERNEL - $ (HOME) /kernel 
OPEN - $ (HOME) /open 
PRIM - $ (HOME) /primitive 

ConfigFiles ■* S (PROBM) /conflg . h S (INCL) /conflg.h 

MostHelpFiles = S (INCL) /limits. h $ (PROBM) /define. h $ (INCL) /define. h S (Conf lgFl les) 
HelpFiles - $ (MostHelpFiles) $ (INCL) /var. h 5 (INCL) /debug. h 

SearchBinFl les = algorithm. o Include. o Interface. o kernel. o open.o primitive. o 
ProbmBlnFiles = problem. o 

« 

# main program 

I 

all: S (HelpFiles) $ (SearchBlnFiles) $ (ProbmBlnFiles) 

$(CC) $ (CFlags) $ (SearchBlnFiles) S (ProbmBlnFiles) S(LoadFlags) -oS(CSP) 

cleanall: 

rm -f $ (BIN) / * . o $(BIN)/core $(BIN)/.*.c 


I 

I kernel/ 

i 

kernel. o: $ (HelpFiles) S (KERNEL) /*. c 

cat $ (HelpFiles) S (KERNEL) /*. c > _;\ 
mv -f _ . kernel. c;\ 

$(CC) $ (CFlags) -c .kernel. c -o kernel. o 


« 

# open/ 

> 

open.o: $ (HelpFiles) $(OPEN)/*.c 

cat $ (HelpFiles) $(OPEN)/*.c > _;\ 
mv -f _ . open.c; \ 

$ (CC) $ (CFlags) -c .open.c -o open.o 


I primitive/ 

# 

primitive. o: $ (HelpFiles) $(PRIM)/*.c 

cat $ (HelpFiles) $(PRIM)/*.c > _?\ 
mv -f __ .primitive.c;\ 

$ (CC) $ (CFlags) -c .primitive. c -o primitive. o 

I 

I Problem Depedent Part 

I 

problem. o: $(HelpFiles) $ (PROBM)/*. c 

cat $ (HelpFiles) $(PROBM)/*.c > 
mv -f _ .problem. c;\ 

$ (CC) $ (CFlags) -c .problem. c -o problem. o 


# algorithm/ 

# 

algorithm. o: S(HelpFiles) $(ALG)/*.c 

cat $ (HelpFiles) $(ALG)/*.c > _;\ 
mv -£ _ . algorithm. c; \ 

$ (CC) $ (CFlags) -c . algorithm. c -o algorithm. o 


# 

# include/ 

# 

include.©: $ (MostHelpFiles) $ (INCL) /var .c $ (INCL) /debug. c 

cat $ (MostHelpFiles) $ (INCL) /var . c $ (INCL) /debug. c > _; \ 
mv -£ _ . include. c; \ 

$ (CC) $ (CFlags) -c . include. c -o include. o; 


* 

# interface/ 

# 

interface. o: $ (PROBM) /output . h $ (HelpFiles) $ (INTFC) /*.c 
cat $ (PROBM) /output .h $ (HelpFiles) $ (INTFC) /*.c > 
mv -f __ . interface, c; \ 
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$ (CC) $ (CFlags) -c . Interface. c -o Interface. o 


wet .Makefi le 


.SILENT: 

CC - cc 

CFlags = -DDEBUG -DSUN -DLOWB_GUIDANCE -g 
JiOadFlags = -lm -lg 

SRC - . ./. ./src 

CSP - wet 

PROBM = $ (SRC) /solver/5 (CSP) .pgm 
BIN = . 

HOME « $ ( SRC) 

ALG - $ (HOME) /algorithm 
INCL = $ (HOME) /include 
INTFC = $ (HOME) /interface 
KERNEL = $ (HOME) /kernel 
OPEN = $ (HOME) /open 
PRIM = $ (HOME) /primitive 

Conf igFiles * $ (PROBM) /config . h $ (INCL) /conf ig. h 

MostHelpFiles - $ (INCL) /I imit s. h $ (PROBM) /define. h $(INCL)/define.h $ (ConfigFiles) 
HelpFiles - $ (MostHelpFiles) $ (INCL) /var. h $ (INCL) /debug. h 

SearchBinFi les = algorithm. o include. o interface. o kernel. o open.o primitive. o 
ProbmBinFileS = problem. o 

# 

# main program 

# 

all: $ (HelpFl les) $ (SearchBlnFlles) $ (ProbmBi nFi les) 

$ (CC) $ (CFlags) $ (SearchBinFi les) $ (ProbmBinFi les) S(LoadFlags) -o$(CSP) 

cleanal 1 : 

rm -f $ (BIN) / * . o $(BIN)/core $(BIN)/.*.c 


f 

f kernel/ 

» 

kernel. o: S(HelpFiles) $ (KERNEL) /*. c 

cat $ (HelpFiles) $ (KERNEL) /*. c > Jt \ 
mv -f _ . kernel. c;\ 

$ (CC) $ (CFlags) -c .kernel. c -o kernel. o 


I 

I open/ 

« 

open.o: $ (HelpFiles) $(0PEN)/*.c 

cat $ (HelpFiles) $(0PEN)/*.c > \ 

mv -f _ .open.c;\ 

$ (CC) $ (CFlags) -c .open.c -o open.o 


f 

i primitive/ 

ff 

primitive. o: S(HelpFiles) $(PRIM)/*.c 

cat $ (HelpFiles) $(PRIM)/*.c > \ 

mv -f _ . primitive. c; \ 

$ (CC) $ (CFlags) -c . primitive. c -o primitive. o 


« 

ff Problem Depedent Part 

I 

problem. o: $ (HelpFiles) $ (PROBM)/*. c 

cat $ (HelpFiles) $(PROBM)/*.c > 
mv -f _ . problem. c; \ 

$ (CC) $ (CFlags) -c .problem. c -o problem. o 


ff 

# algorithm/ 

ff 

algorithm. o: S(HelpFiles) $(ALG)/*.c 
cat $ (HelpFiles) $(ALG)/*.c > 
mv -f _ . algori thm. c; \ 

$ (CC) $ (CFlags) -c . algorithm. c -o algorithm. o 


ff 

ff include/ 

8 

include.©: $ (MostHelpFi les) $ (INCL) /var . c $ (INCL) /debug. c 

cat $ (MostHelpFiles) $ (INCL) /var. c $ (INCL) /debug. c > _;\ 
mv -f _ . include. c;\ 

$ (CC) $ (CFlags) -c . include. c -o include. o; 

ff 

ff interface/ 

ff 

interface. o: $ (PROBM) /output . h $(HelpFiles) $(INTFC)/*.c 

cat $ (PROBM) /output .h $ (HelpFiles) $ (INTFC) /*.c > _;\ 
mv -f _ . interface. c; \ 
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grcs .Makefile 


.SILENT: 

CC = cc 

CFlags = -DDEBUG -DSUN -DLOWB_GUIDANCE -g 
LoadFlags = -lm 

SRC - . . /src 

CSP = grcs 

PROBM = $ (SRC) /solver/$ (CSP) .pgm 
BIN = . 

HOME - $ ( SRC) 

ALG = $ (HOME) /algorithm 
INCL = $ (HOME) /include 
INTFC = 3 (HOME) /interface 
KERNEL = $ (HOME) /kernel 
OPEN « $ (HOME) /open 
PRIM ® $ (HOME) /primitive 

ConfigFiles - $ (PROBM) /config.h $ (INCL) /conflg.h 

MostHelpFlles * $ (INCL) /limits. h $ (PROBM) /define. h 3 (INCL) /define. h 3 (ConfigFiles) 
HelpFiles =* 3 (MostHelpFiles) $ (INCL) /var . h $ (INCL) /debug, h 

SearchBinFiles ° algorithm. o include. o interface. o kernel. o open.o primitive. o 
ProbmBinFiles = problem. o 

# 

0 main program 

# 

all: 5 (HelpFiles) 3 (SearchBinFiles) 3 (ProbmBinFi les) 

3 (CC) 3 (CFlags) 3 (SearchBinFi les) 3 (ProbmBinFiles) $ (LoadFlags) -o 3 (CSP) 

cleanall: 

rm -f 3 (BIN) / * . o 3(BIN)/core $(BIN)/.*.c 


« 

0 kernel/ 

1 

kernel. o: S(HelpFiles) 3 (KERNEL) /*. c 

cat 3 (HelpFiles) 3 (KERNEL) /*. c > \ 

mv -f _ .kernel. c?\ 

3 (CC) 3 (CFlags) -c .kernel. c -o kernel. o 


I 

0 open/ 

f 

open.o: 3 (HelpFiles) $(OPEN)/*.c 

cat 3 (HelpFiles) 3(OPEN)/*.c > _;\ 
mv -f __ ,open.c;\ 

5 (CC) 3 (CFlags) -c .open.c -o open.o 


I 

f primitive/ 

I 

primitive. o: $ (HelpFiles) 3(PRIM)/*.c 

cat 3 (HelpFiles) $(PRIM)/*.c > _;\ 
mv -f __ .primitive, c; \ 

3 (CC) 3 (CFlags) -c . primitive. c -o primitive. o 


t 

I Problem Depedent Part 

« 

problem. o: 3(HelpFiles) 3 (PROBM)/*. c 

cat 3 (HelpFiles) 3(PROBM)/*.c > _?\ 
mv -f _ . problem. c;\ 

5 (CC) 3 (CFlags) -c .problem. c -o problem. o 


# 

0 algorithm/ 

0 

algorithm. o: 3(HelpFlles) 3(ALG)/*.c 

cat 3 (HelpFiles) 5(ALG)/*.c > _;\ 
mv -f _ . algorithm. c; \ 

5 (CC) 3 (CFlags) -c .algorithm. c -o algorithm. o 


0 

0 include/ 

include. o: 3 (Most HelpFi les) 3 (INCL) /var . c 3 (INCL) /debug. c 

cat 3 (MostHelpFiles) 3 (INCL) /var . c 3 (INCL) /debug. c > _; \ 
mv -f _ . include. c; \ 

3(CC) 3 (CFlags) -c . include. c -o include. o; 

0 

# interface/ 

0 

interface. o: 3 (PROBM) /output. h 3 (HelpFiles) 3(INTFC)/*.c 

cat $ (PROBM) /output .h 5 (HelpFiles) 3(INTFC)/*.c > _;\ 
mv -f . interface. c; \ 
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at s .Makefile 


.SILENT: 

CC - cc 

CF Lags = -DDE BUG -DSUN -DASYMJSP -DL0WBGU1 DANCE -g 
LoadFlags = -lm 

SRC = . ./. . / src 

CSP “ ats 

PROBM = $ (SRC) /solver/$ (CSP) .pgm 
BIN = . 

HOME = $ ( SRC) 

ALG = $ (HOME) /algorithm 
INCL = $ (HOME) /include 
INTFC = $ (HOME) /interface 
KERNEL - $ (HOME) /kernel 
OPEN - $ (HOME) /open 
PRIM « $ (HOME) /primitive 

Conf igFiles = $ (PROBM) /config . h $ (INCL) /conf ig. h 

MostHelpFiles = $ (INCL) /limits. h $ (PROBM) /define. h $ (INCL) /define. h $ (ConfigFiles) 
HelpFiles = $ (MostHelpFiles) $ ( INCL) /var. h $ (INCL) /debug. h 

SearchBinFiles = algorithm. o Include. o interface. o kernel. o open.o primitive.© 
ProbmBinFiles = problem. o 

I 

# main program 

# 

all: $(HelpFiles) $ (SearchBinFi les) $ (ProbmBi nFi les) 

$(CC) $ (CFlags) $ (SearchBinFi les) $ (ProbmBinFiles) $ (LoadFlags) -o $(CSP) 

cleanal 1 : 

rm -f $ (BIN) / * . o $(BIN)/core $(BIN)/.*.c 


I 

f kernel/ 

I 

kernel. o: $(HelpFiles) $ (KERNEL) /* .c 
cat $ (HelpFiles) $ (KERNEL) /* . 
mv -f _ . kernel. c;\ 

$ (CC) $ (CFlags) -c . kernel. c 


# 

# open/ 

# 

open.o: $(HelpFiles) $(OPEN)/*.c 

cat $ (HelpFiles) $(OPEN)/*.c : 
mv -f _ .open.c;\ 

$ (CC) $ (CFlags) -c .open.c -o 


I primitive/ 

f 

primitive. o: $(HelpFiles) $(PRIM)/*.c 
cat $ (HelpFiles) $(PRIM)/*.c : 
mv -f _ . primitive. c;\ 

$ (CC) $ (CFlags) -c .primitive 


f Problem Depedent Part 

I 

problem. o: $(HelpFiles) $ (PROBM)/*. c 
cat $ (HelpFiles) $ (PROBM) /*.c 
mv -f _ . problem. c;\ 

$ (CC) $ (CFlags) -c . problem. c 


# 

8 algorithm/ 

fi 

algorithm. o: $(HelpFiles) $(ALG)/*.c 

cat $ (HelpFiles) $(ALG)/*.c > _;\ 
mv -f _ .algorithm. c; \ 

$ (CC) $ (CFlags) -c . algorithm. c -o algorithm. o 


8 

# include/ 

# 

include. o: $ (MostHelpFiles) $ (INCL) /var . c $ (INCL) /debug. c 

cat $ (MostHelpFiles) $ (INCL) /var. c $ (INCL) /debug. c > \ 

mv -f _ . include. c;\ 

$ (CC) $ (CFlags) -c . include. c -o include. o; 


« 

8 interface/ 

8 

interface. o: $ (PROBM) /output . h $(HelpFiles) $(INTFC)/*.c 

cat $ (PROBM) /output . h $ (HelpFiles) $(INTFC)/*.c > _;\ 
mv -f _ . interface. c; \ 


o kernel. o 

’ 

open.o 
► _;\ 

,c -o primitive. o 
> 

-o problem. o 
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ma ze .Makefile 


cat $ (PROBM) /output. h $ (HelpFiles) $ (INTFC) /*.c 
mv -f _ . interface. c;\ 

$ (CC) $ (CFlags) -c . interface. c -o interface. o 


.SILENT: 

I BACKWARD_GEN 
I MAZE_ENHANCE 

cc - cc 

CFlags = -DDEBUG -DSUN -DTAKEOUT 20 -DBACKWARD_GEN -DMAZE_ENHANCE -DLOWB_GUIDANCE -g 
LoadFlags - -lm 

SRC = . .1 . . /src 

CSP =» maze 

PROBM = $ (SRC) /solver/? (CSP) .pgm 
BIN - . 

HOME = $ ( SRC) 

ALG = $ (HOME) /algorithm 
INCL - $ (HOME) /include 
INTFC - $ (HOME) /interface 
KERNEL - $ (HOME) /kernel 
OPEN « $ (HOME) /Open 
PRIM = $ (HOME) /primitive 

ConfigFiles = $ (PROBM) /con fig . h $ (INCL) /cont ig. h 

MostHelpFi les * $ (INCL) /I imits. h $ (PROBM) /define. h $ (INCL) /define . h $ (ConfigFiles) 
HelpFiles = $ (MostHelpFiles) $ (INCL) /var . h $ (INCL) /debug. h 

SearchBinFiles * algorithm. o Include. o interface. o kernel. o open.o primitive. o 
ProbraBinFiles ** problem. o 

« 

I main program 

I 

all: $(HelpFiles) $ (SearchBinFiles) $ (ProbmBinFiles) 

$ (CC) $ (CFlags) $ (SearchBinFi les) 5 (ProbmBinFiles) $ (LoadFlags) -o $(CSP) 

cleanall : 

rm -f $ (BIN) / * . o $(BIN)/core $(BIN)/.*.c 


« 

f kernel/ 

« 

kernel. o: $ (HelpFiles) $ (KERNEL) /*. c 

cat $ (HelpFiles) $ (KERNEL) /*.c > _; \ 
mv -f _ . kernel. c;\ 

$ (CC) $ (CFlags) -c . kernel. c -o kernel. o 

I 

I open/ 

f 

open.o: $ (HelpFiles) $(OPEN)/*.c 

cat $ (HelpFiles) $(OPEN)/*.c > _; \ 
mv -f _ .open.c;\ 

$(CC) $ (CFlags) -c .open.c -o open.o 


I 

I primitive/ 

f 

primitive. o: $(HelpFiles) $(PRIM)/*.c 

cat $ (HelpFiles) $(PRIM)/*.C > _; \ 
mv -f _ . primitive. c;\ 

?(CC) $ (CFlags) -c . primitive. c -o primitive. o 


I 

I Problem Depedent Part 

« 

problem. o: $ (HelpFiles) $ (PROBM) /*.c 

cat $ (HelpFiles) $ (PROBM) /*.c > 
mv -f _ . problem. c;\ 

$(CC) $ (CFlags) -c .problem. c -o problem. o 


f 

# algorithm/ 

algorithm. o: $(HelpFiles) $(ALG)/*.c 

cat $ (HelpFiles) $(ALG)/‘.c > _;\ 
mv -f _ . algorithm. c; \ 

$ (CC) $ (CFlags) -c , algorithm. c -o algorithm. o 


I 

# include/ 

include. o: $ (MostHelpFiles) $ (INCL) /var . c $ (INCL) /debug. c 

cat $ (MostHelpFiles) $ (INCL) /var. c S (INCL) /debug. c > _;\ 
mv -f _ . include. c;\ 

$ (CC) $ (CFlags) -c . include. c -o include. o; 

I 

# interface/ 


interface. o: $ (PROBM) /output . h $(HelpFiles) $ (INTFC) /*.c 
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puzz. Makefile 


.SILENT: 

» FULL DISPLAY 
CC - cc 

CFlags - -DDEBUG -DSUN -DFULL_DI SPLAY -D LOWB_GU I DANC E -g 
LoadFlags » -1m 

SRC • . , / . . /src 

CSP “ puzz 

PROBM » $ (SRC) /solver/S (CSP) .pgm 
BIN - . 

HOME = $ (SRC) 

ALG - S (HOME) /algorithm 
INCL - $ (HOME) /include 
INTFC - S (HOME) /Interface 
KERNEL - S (HOME) /kernel 
OPEN - $ (HOME) /open 
PRIM » $ (HOME) /primitive 

ConfigFiles - $ (PROBM) /config .h S (INCL) /config. h 

MostHelpFlles - S (INCL) /limits. h $ (PROBM) /define. h S (INCL) /define. h 5 (Conf lgFi les) 
HelpFiles - S (MostHelpFlles) S (INCL) /vac. h $( INCL) /debug. h 

SearchBlnFlles - algorithm. o Include. o Interface. o kernel. o open.o primitive. o 
ProbmBlnFiles - problem. o 

I 

I main program 

• 

all: S(HelpFiles) $ (SearchBinFi les) S (ProbmBl nFl les) 

S (CC) S(CFlags) S (SearchBlnFlles) $ (ProbmBlnFiles) S(LoadFlags) -o S(CSP) 

cleanal 1 : 

rm -f S (BIN) /* .o S(BIN)/core S(BIN)/.*.c 


mv -f _ . interface. c; \ 

$ (CC) $ (CFlags) -c . Interface. c -o interface. o 


« 

I kernel/ 

t 

kernel. o: $(HelpFlles) S (KERNEL) /*. c 

cat $ (HelpFiles) $ (KERNEL) /*. c > _;\ 
mv -f _ . kernel. c;\ 

$(CC) $ (CFlags) -c . kernel. c -o kernel. o 


I 

I open/ 

t 

open.o: S (HelpFiles) S(OPEN)/*.c 

cat $ (HelpFiles) S(OPEN)/*.c > _;\ 
mv -f _ . open.c;\ 

S (CC) $ (CFlags) -c .open.c -o open.o 


I 

I primitive/ 

< 

primitive. o: S(HelpFiles) S(PRIM)/*.c 

cat S (HelpFiles) $(PRIM)/*.c > V 
mv -f _ .primit ive. c; \ 

S (CC) S (CFlags) -c . primitive. c -o prlmitlve.o 


I 

I Problem Depedent Part 

i 

problem. o: S(HelpFlles) S(PROBM)/*.c 

cat 5 (HelpFiles) S (PROBM) /*.c > _;\ 
mv -f _ . problem. c;\ 

S (CC) $ (CFlags) -c . problem. c -o problem. o 


I 

I algorithm/ 

• 

algorithm. o: S(HelpFiles) $(ALG)/*.c 

cat S (HelpFiles) $(ALG)/*.c > _;\ 
mv -f _ . algorithm. c; \ 

S (CC) $ (CFlags) -c . algorithm. c -o algorithm. o 


• 

I include/ 

i 

include. o: S (MostHelpFi les) S (INCL) /var.c $ (INCL) /debug. c 

cat S (MostHelpFlles) S (INCL) /var. c $ (INCL) /debug. c > _;\ 
mv -f _ 1 . include . c; \ 

S (CC) S(CFlags) -c . include. c -o Include. o; 


• interface/ 

« 

interface. o: S (PROBM) /output . h S(HelpFlles) $(lNTFC)/*.c 

cat S (PROBM) /output ,h S(HelpFiles) $(INTFC)/*.c > _;\ 



